Поможите

← →
Semion © (2002-09-25 07:18) [0]

привет всем
У меня проблемка, помогите пожалуйста.
форма не создается никак не могу понять чо циклит

procedure TForm1.FormCreate(Sender: TObject);
var
f:TextFile;
c:char;
t:string[2];
fi,ft:string;
begin
assignfile(f,"chat.ini");
{$i-}
reset(f);
{$i+}
if ioresult<>0 then begin
assignfile(f,"chat.ini");
rewrite(f);
end
else while not(eof(f)) do <<<-- начинает отсюда
begin
read(f,t);
if t="~c" then while not(eoln(f)) do begin
read(f,c);
fi:=fi+c;
end;
filename:=fi;

if t="~t" then while not(eoln(f)) do begin
read(f,c);
ft:=ft+c;
end;
if ft<>"" then timer1.Interval:=strtoint(ft);
end; <<<-и досюда крутится беспрерывно
closefile(f);
end;

Так циклит при любом содержании файла...

← →
MBo © (2002-09-25 07:21) [1]

Смотрится несколько запутанно. Не проще читать readln строку, а потом ее анализировать?

← →
gek © (2002-09-25 07:27) [2]

Количество строчек правильного кода равно 0

это первое что видно

assignfile(f,"chat.ini");
if not Fileexists(chat.ini) then
rewrite(f)
else
reset(f);

Да, лучше конечно читать строку, тем более она у тебя как видно всего 2 символа

← →
Alx2 © (2002-09-25 07:55) [3]

>Так циклит при любом содержании файла...

Попробуй Readln в случае eoln

а в цикл while not(eoln(f)) добавить еще not eof(f)

Вообще приведенный код какой-то никакой :)
Опиши чего надо сделать. Скорее всего, все гораздо проще :)

Спасибо все исправил, просто он доходил до конца, и не знал что это конец короче циклий.
а код я облегчу.

Поможите Найти похожие ветки