Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поможите [D6, WinME]

Semion © (2002-09-25 07:18:00)
привет всем
У меня проблемка, помогите пожалуйста.
форма не создается никак не могу понять чо циклит

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;

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

Semion (2002-09-25 08:08:00) [1]
Спасибо все исправил, просто он доходил до конца, и не знал что это конец короче циклий.
а код я облегчу.

Alx2 (2002-09-25 07:55:00) [2]
>Так циклит при любом содержании файла...

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

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

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

gek (2002-09-25 07:27:00) [3]
Количество строчек правильного кода равно 0

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

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

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

MBo (2002-09-25 07:21:00) [4]
Смотрится несколько запутанно. Не проще читать readln строку, а потом ее анализировать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »