Скачать: CL | DM;

TStringList   Найти похожие ветки 

← →
Вечно молодой ©   (2002-08-03 18:35) [0]

procedure TMainForm.NewTaskClick(Sender: TObject);
var
Index : Integer;
List : TStringList;
begin
case SearchOptions.ShowModal of
mrCancel : Exit;
mrOk :
begin
List:=TStringList.Create;
Index:=List.Count-1;
end;
end;
end.

Почему после выполнения этой процедуры Index равен 0, а не -1?

---

← →
Jeer ©   (2002-08-03 18:50) [1]

После выполнения ей уже нет дела до index, да и его самого тоже нет.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.009 c