בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

עזור לאנשים טובים מצא סניפים דומים


Катерина   (2001-12-20 07:37) [0]

Dobrenko utrechko. יש לי קצת קושי - אני לא יכול להסיר את הקו מהמחרוזת. איזו פונקציה נדרשת ועם אילו פרמטרים? ניסיתי להחיל מחיקה, אך משהו דלפי בפרמטרים לא מתאים.



gek   (2001-12-20 08:01) [1]


procedure TFormEnterData.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
TStr:TStrings;
begin
if key = VK_DELETE then
If MessageDlg("Удалить текущую запись ? ",mtWarning,
[mbOk,mbCancel],0) = mrOk then
with StringGrid1 do
begin
if RowCount = 2 then
begin
StringGrid1.RowCount:=2;
StringGrid1.Rows[1].Clear;
exit;
end;
TStr:=Rows[RowCount-1];
Rows[(StrToInt(LabelPosition.Caption))]:=TStr;
RowCount:=RowCount - 1;
LabelCountRows.Caption:=IntToStr(RowCount -1);
end;
end;




עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.54 MB
זמן: 0.02 c
1-22118
vlv
2001-12-19 21:59
2002.01.08
רכיבים


1-22237
PVR
2001-12-16 17:20
2002.01.08
עזרה במיון TListView


1-22241
יוראז
2001-12-17 10:09
2002.01.08
FileListBox1.FileName מחזירה את הנתיב המלא לקובץ, כיצד להפוך אותו להחזיר רק את שם הקובץ?


14-22333
ניקולאי
2001-11-03 20:12
2002.01.08
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$


1-22080
דלפימון
2001-12-18 17:11
2002.01.08
כיצד לטעון סמן ממשאב ואז לשמור אותו בדיסק?





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский