Работа с текстовым файлом.

[Максим139]

Как сделать так, чтоб из текстового файла считывало первую строчку, а потом сверяло с текстом из Edit?
Заранее благодарен.

[Mad_Cat]

Как сделать так, чтоб из текстового файла считывало первую строчку

assign(f,имя файла);reset(f);
read(f,s);

сверяло с текстом из Edit

if s=edit1.text then

[Максим139]

А если потом надо, чтоб переходило на 2,3,4..n строку?

[Mad_Cat]

А если потом надо, чтоб переходило на 2,3,4..n строку?

Ну а если немного подумать7

assign(f,имя файла);reset(f);
read(f,s);
while (s<>edt1.text) and not eof(f) do
read(f,s);

[Максим139]

while not eof(f) and s<>edt1.text do - а что делать, если пишет, что несовместимы типы string и boolean? Простите за нубство((
s<>edt1.text do - ошибка тут сидит.

[SERG1980]

В делфи легче использовать TStringList

var SL:TStringList;
begin
SL:=TStringList.Create;
SL.LoadFromFile('fsdfsfsf');
for i:=0 to SL.Count-1 do//в цикле перебор всех строчек
 if SL[i]=Edit1.Text then...
SL.Free;
end;

[Максим139]

Сообщение от SERG1980

В делфи легче использовать TStringList

var SL:TStringList;
begin
SL:=TStringList.Create;
SL.LoadFromFile('fsdfsfsf');
for i:=0 to SL.Count-1 do//в цикле перебор всех строчек
 if SL[i]=Edit1.Text then...
SL.Free;
end;

Спасибо, очень выручил))