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

[min@y™]

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

нетЪ!
я намекаю на TStringList.

[Xo6ut]

Узнал, что сейчас нам stringlist не нужен(будет в след лаб работах)
Вот как выглядит мой код.

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);
    procedure BitBtn2Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 f:textfile;
 vklad:integer ;
 srok:integer;
 prozent:double;
implementation
 
{$R *.dfm}
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
begin
Form2.close;
end;

end;

procedure TForm2.PUSK(Sender: TObject);
  var s:string ;
begin
  memo1.text:='';
  if FileExists('C:\primer1.txt') then
 showmessage('Файл существуент')
 else
  begin
 Showmessage('File not found') ;
       Form2.close;
  end;
assignfile(f,'c:\primer1.txt');
   reset(f);
   readln(f,VKLAD);
   readln(f,PROZENT);
   readln(f,SROK);
                  memo1.lines.add(('Cумма вклада='+inttostr(vklad))) ;
                  memo1.lines.add(('Cрок='+inttostr(srok))) ;
                  memo1.lines.add(('Процент='+floattostr(prozent))) ;
closefile(f);
end;
end.

[min@y™]

попутал TStringList и TStringGrid?
ну и ладно.

[Xo6ut]

А на какие функции можно заменить те, что вы перечислили?

[min@y™]

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

А на какие функции можно заменить те, что вы перечислили?

на класс tstringlist с его методами и свойствами.

[Xo6ut]

А как теперь вот допустим у меня в этом же файле есть массив чисел X, кол-во элеметнов нам не известно, но они идут в столбик по 1 числу, нужно сделать прогу, которая считывает эти числа и выводит их в memo

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

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

А как теперь вот допустим у меня в этом же файле есть массив чисел X, кол-во элеметнов нам не известно, но они идут в столбик по 1 числу, нужно сделать прогу, которая считывает эти числа и выводит их в memo

Я же вам писал уже. Memo1.lines.loadFromFile(<путь к файлу>);

[Xo6ut]

Нужно, чтобы выводились так, например 1-ый элемент 5, а результат будет такой
X1=5

[min@y™]

Нужно, чтобы выводились так, например 1-ый элемент 5, а результат будет такой
X1=5

надоел ты уже. опиши задачу полностью и выложь во фриланс, там тебе всё быстро и качественно сделают.
а если не хошь – читай матчасть про TStringList и пиши прогу сам.

[Xo6ut]

Зачем использовать stringlist, если он тут не нужен?