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

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

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

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

Потому, что вы считываете только первую строку из файла. вам надо три раза (ещё два) повторить чтение из файла. И используйте readLn, а не read

[Xo6ut]

Исправил, но tedit все равно идет как узкая строка, она не увеличивается, когда я запускаю программу

[Аватар]

Эдит и не предназначен для многострочных данных. В Мемо считывай

[Xo6ut]

procedure TForm2.PUSK(Sender: TObject);
var s:string ;
begin
assignfile(f,'c:\primer1.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
memo1.text:=s;
end;
CloseFile(f);

end;
end.
Отображает только 3 строку

[Аватар]

Ну я бы для начала справку по мемо прочитал внимательно

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

memo1.text:=s;

вместо этого используйте

memo1.lines.append(S);

[Xo6ut]

А как теперь дать каждому числу по ячейке?

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

Используйте компонент stringGrid.
Попробуйте самостоятельно найти информацию по тому, как работать с ним. Подсказка: вам нужно свойство этого компонента под названием cells

[Xo6ut]

А если сделать вот так?
assignfile(f,'c:\primer1.txt');
reset(f);
readln(f,VKLAD);
readln(f,PROZENT);
readln(f,SROK);
Label1.Caption:='Сумма вклада = '+IntToStr(VKLAD);
CloseFile(f);

[min@y™]

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

кстати, задание дебильно составлено и вводит в заблуждение.