Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Загрузка строк в объект типа TStringList - непонятные глюки   Найти похожие ветки 

 
Неплохой человек   (2003-06-11 15:45) [0]

Привожу код:
procedure TForm1.miComponentNamesClick(Sender: TObject);
var ObjectList:TStringList;
procedure ExtractComponents();
var Index, PrevIndex:Integer;
begin
PrevIndex:=-1;
while (ObjectList.Find("object",Index) and not(Index=PrevIndex)) do begin
ListBox1.Items.Add(ObjectList[Index]);
PrevIndex:=Index;
end;
end;
begin
If edDFMFile.Text="" then begin
ShowMessage("Choose DFM-File you need to explore!");
Exit;
end;
ObjectList:=TStringList.Create;
ObjectList.Add("");
try
ObjectList.LoadFromFile(Opendialog1.FileName);
memo1.Lines.AddStrings(ObjectList);
ExtractComponents;
finally
ObjectList.Free;
end;
end;

Ставлю брейк-поинт на вызове метода ExtractComponents.
В memo1 строки загружаются, а в процедуре поиска ExtractComponents при наведении курсора на переменную ObjectList выдаёт хинт ObjectList=(), то есть список пуст.
Ну и ессно метод поиска не пашет, потомучто негде искать.
Подскажите, в чём может быть ошибка, что список оказывается пуст?


 
Юрий Федоров ©   (2003-06-11 15:48) [1]

>>ObjectList выдаёт хинт ObjectList=(), то есть список пуст.
Это не означает, что список пуст



 
Неплохой человек   (2003-06-11 15:50) [2]

а что это означает?


 
Юрий Федоров ©   (2003-06-11 15:52) [3]

Это означает, что у объекта TStringList нет видимых в этом модуле полей



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
6-84508
ole
2003-04-17 04:34
2003.06.26
Мультикаст


8-84457
BangoBango
2003-03-12 15:33
2003.06.26
Госпада!!! Возможно кто нибудь из Вас знает , как из TImage...


3-83928
Ler
2003-06-03 13:57
2003.06.26
Вопрос по LocalSQL


14-84629
NeWuS
2003-06-08 09:59
2003.06.26
Текст


6-84506
Smok_er
2003-04-04 18:25
2003.06.26
Как узнать, установлен (активен) ли файервол на компе или нет?