Помогите с поиском в файле
Такое дело мне надо загрузить в ListBox строки содержащиеся в файле но только от color name='"сюда"
Код:
procedure TForm1.modelChange(Sender: TObject);
var
fWayName: String;
fWay: String;
fName: String;
f: TextFile;
buf: String;
begin
sWinDir:=ExtractFilePath(paramStr(0));
MapsPath:=sWinDir+'\Maps\';
fName:=SearchRec.Name;
fWayName:=MapsPath+fName;
AssignFile(f, fWayName);
try
reset(f);
except
on EInOutError do
begin
ShowMessage('Ошибка доступа к файлу');
exit;
end;
end;
while not Eof(f) do
begin
как быть сдесь мне не нужно все данные с строки
readln(f, buf);
colorlist.Items.Add(buf);
end;
end;
Admin: Пользуемся тегами!
Последний раз редактировалось Admin, 20.09.2009 в 15:29.
|