[C1berBoy]

Имеется текстовый файл. Выяснить, имеется ли в нем строка, начинающаяся с буквы "т". Если да, то определить номер первой из таких строк.

я сам пробывал,но не получается))) помогите пожалуйста

[Andrey53]

Примерно так, пишу здесь могут быть ошибки

Код:

var
 F:TextFile;
 s:string;
 i:integer;
begin
 s:='';
 i:=0;
 AssignFile(F,'namefile.txt');
 Reset(F);
 while not (EOF(F)) do
  begin
   s:='';
   Readln(F,s);
   inc(i);
   if s[1]='т' then
    begin
     Caption:='Номер первой строки с буквой т - '+InttoStr(i);
     exit;
    end;
  end;
 CloseFile(F);
end;

[C1berBoy]

ошибка на if s[1]='т' then выходит если в файле все строки состоят из т одиночных,в других случаях вообще ни чего не происходит

[Andrey53]

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

ошибка на if s[1]='т' then выходит если в файле все строки состоят из т одиночных,в других случаях вообще ни чего не происходит

Хм не хнаю я тока что проверил у меня и при одиночных работает норм и так норм работает, на заголовок окна посмотри в моем коде результат отображается там, может ты не замечаешь и вместо exit лучше использовать break

[C1berBoy]

в заголовке только Form1 написано,может исходник полностью скинешь?

[Andrey53]

Пожалуйста, возможно у тебя проблема в том, что ты код скопировал с форума и вставил в Делфи и она отобразилась там не в той кодировки и поэтому не работает, качай, там и файл лежит

[C1berBoy]

спасибо,очень помог