|
|
#1
|
||||
|
||||
текстовый файл
Имеется текстовый файл. Выяснить, имеется ли в нем строка, начинающаяся с буквы "т". Если да, то определить номер первой из таких строк.
я сам пробывал,но не получается))) помогите пожалуйста |
#2
|
|||
|
|||
Примерно так, пишу здесь могут быть ошибки
Код:
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; |
#3
|
||||
|
||||
ошибка на if s[1]='т' then выходит если в файле все строки состоят из т одиночных,в других случаях вообще ни чего не происходит
|
#4
|
|||
|
|||
Цитата:
|
#5
|
||||
|
||||
в заголовке только Form1 написано,может исходник полностью скинешь?
|
#6
|
|||
|
|||
Пожалуйста, возможно у тебя проблема в том, что ты код скопировал с форума и вставил в Делфи и она отобразилась там не в той кодировки и поэтому не работает, качай, там и файл лежит
|