Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
ВнизПоможите Найти похожие ветки
← →
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)
Вообще приведенный код какой-то никакой :)
Опиши чего надо сделать. Скорее всего, все гораздо проще :)
← →
Semion (2002-09-25 08:08) [4]Спасибо все исправил, просто он доходил до конца, и не знал что это конец короче циклий.
а код я облегчу.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c