Скажите, пожалуйста, что я сделала не так, если можно, то с отредакируйте ошибочное место в коде.

Код

program cool; uses crt; const Path = 'c:\table.txt'; var f: text; a,b,c:string; Function FileExists(FileName : String) : Boolean; Var F : text; Begin {$I-} Assign(F, path); Reset(F); Close(F); {$I+} FileExists := (IOResult = 0) And ('table.txt' <> ''); End; begin clrscr; If FileExists(ParamStr(1)) then Begin write('Введите ФИО абонента: '); readln(a); write('Введите адрес абонента: '); readln(b); write('Введите телефон абонента: '); readln(c); Assign(f,path); reset(f); Append(f); writeln('ФИО: ', a); writeln('Адрес: ',b); writeln('Телефон: ',c); Writeln; close(f); end Else Begin write('Введите ФИО абонента: '); readln(a); write('Введите адрес абонента: '); readln(b); write('Введите телефон абонента: '); readln(c); assign(f,path); rewrite(f); writeln('ФИО: ', a); writeln('Адрес: ',b); writeln('Телефон: ',c); writeln; close(f); end; end.

Значит что эта часть будущей проги должна делать.
Если файл table.txt не найден на винте, то он создаётся и в нём заданные данные.
Если файл table.txt найден на винте, то следующая заданная запись всего-навсего должна добавиться к другим данным в файле.
А у меня после выполнения в файле ничего нет и незнаю зачем-то выводятся данные (которые должны быть в файле) после ввода абонента.

А зачем перед Append Reset?

Цитата(DemoCode @ 13.1.2006, 20:51 )

А зачем перед Append Reset?

угу...

Код

program cool;     uses crt;     const     Path = 'c:\table.txt';     var f: text; a,b,c:string;       Function FileExists(FileName : String) : Boolean;         Var F : text;         Begin         {$I-}         Assign(F, path);         Reset(F);         Close(F);         {$I+}         FileExists := (IOResult = 0) And ('table.txt' <> '');         End;     begin     clrscr; write('Введите ФИО абонента: ');     readln(a);     write('Введите адрес абонента: ');     readln(b);     write('Введите телефон абонента: ');     readln(c);         Assign(f,path); If FileExists(ParamStr(1)) then        Begin        Append(f);        end        Else        Begin        rewrite(f);        end; close(f);     end.

Эту часть можно сделать по красивей (этот код):

Код

If FileExists(ParamStr(1)) then        Begin        Append(f);        end        Else        Begin        rewrite(f);        end;

Заменить на этот:

Код

If FileExists(ParamStr(1)) then        Append(f)     else        rewrite(f);

Это сообщение отредактировал(а) Zero - 14.1.2006, 04:00