Экранная форма

[Xo6ut]

Может кто добавить к данному коду проверку на доступность файла и выводить на экран соответствующие сообщения?

[Xo6ut]

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm2 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
memo1: TMemo;
procedure PUSK(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
f:textfile;
implementation

{$R *.dfm}

procedure TForm2.PUSK(Sender: TObject);
var s:string ;
begin
assignfile(f,'c:\primer1.txt');
reset(f);
readln(f,VKLAD);
readln(f,PROZENT);
readln(f,SROK);
CloseFile(f);
Label1.Caption:='Сумма вклада = '+IntToStr(VKLAD);

end;
end.

[min@y™]

Сообщение от Xo6ut

Может кто добавить к данному коду проверку на доступность файла и выводить на экран соответствующие сообщения?

ну, я, например.

[Xo6ut]

Добавьте , пожалуйста.

[min@y™]

Добавьте , пожалуйста.

нетъ.
не хочу быть соавтором говнокода.
сначала убери устаревшие турбопаскалевские файловые функции.

[Xo6ut]

На что мне их заменить? Ведь у нас даже никакой лекции по этому stringgrid не было, поэтому довольно проблематично сделать это, если , конечно вы это имеете ввиду

[min@y™]

На что мне их заменить?

см. посты 23, 24.

Ведь у нас даже никакой лекции по этому stringgrid не было

читать лекции по компонентам глупо, всё есть в книгах и хэлпе.

поэтому довольно проблематично сделать это

это неправда, да и никакой грид тут не нужен.

[Xo6ut]

Я знаю только, что можно rewrite заменить на Append , а про остальные функции нет

[Xo6ut]

Вы намекаете на Tfilestream?

[min@y™]

Я знаю только, что можно rewrite заменить на Append

короче, посты 23, 24 ты не смотрел.
пичальбида...
Append, кстати, тоже турбопаскалевская процедүра, если чо.
я же предлагаю тебе воспользоваться методами станд. классов delphi, чтобы было красиво и надёжно.

ты в каком классе учишься?