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

[Xo6ut]

ДЕлфи. Помогите пожалуйста создать программу поддерживающую работу с экранной формой, на которой размещены 2 кнопки: «Пуск», «Выход». При нажатии кнопки «Пуск» должно происходить следующее: открытие файла PRIMER1.DAT с проверкой доступности файла и соответствующими диагностическими сообщениями, считывание из него 3-х чисел: сумма вклада, процентная ставка и срок в месяцах, на который размещается вклад, занесение их в ячейки памяти, обозначенные, соответственно, VKLAD, PROZENT, SROK,
отображение введенных чисел на форме с сопровождающими текстами, например, «Сумма вклада = 2400».
Содержание файла PRIMER1.DAT
35000
5.23
6

[Xo6ut]

Поможет кто?

[Xo6ut]

Напишите хотя бы пожалуйста код для кнопки, которая будет открывать файл и выводить диагностические сообщения

[Вадим Мошев]

Проверить доступность файла?
Знаю функцию только fileExists(ИМЯ_ФАЙЛА), которая проверяем существование файла. Однако, могут быть и другие причины, по которым файл нельзя будет прочитать, например, нет прав. В этом случае, я бы применил отлов исключительных ситуаций и вывод обобщённого диагностического сообщения, если она возникла.

[Xo6ut]

Доступность касаемая существования, права проверять не нужно

[Вадим Мошев]

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

Напишите хотя бы пожалуйста код для кнопки, которая будет открывать файл и выводить диагностические сообщения

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  if NOT fileExists('PRIMER1.DAT') then begin
    messageDlg('файла нет',mtError, [mbOK],0);
  end;
end;

[Xo6ut]

procedure TForm2.PUSK(Sender: TObject);
var f:textfile;
begin
assignfile(f,'c:\primer1.txt');
if not fileExists(f) then
showmessage('файла нет');

end;

end.
И пишет E2010 Incompatible types: 'string' and 'Text' ссылаясь на if not fileExists(f) then

[Аватар]

Delphi syntax:

function FileExists(const FileName: string): Boolean;

[Xo6ut]

Решил пока без проверки на доступность сделать.
procedure TForm2.PUSK(Sender: TObject);
var s:string ;
begin
assignfile(f,'c:\primer1.txt');
reset(f);
read(f,s);
edit1.Text:=s;
end;
end.
Почему при запуске программы, компонента Tedit , из указанных размеров становится просто строкой, я её увеличиваю на всю форму, а она опять уменьшается

[Xo6ut]

И почему у меня появляется только 1ая строка на экране из файла?