24 Создать типизированный файл, состоящий из целых чисел, введённых в столбик в окно текстового

@Дашинда · Регистрация: 12.10.2016

Author24 — интернет-сервис помощи студентам

Создать типизированный файл, состоящий из целых чисел, введённых в столбик в окно текстового реактора Memo. Вывести содержимое созданного фай-ла в поле метки Label

@Puporev · 20.11.2016, 17:19

Delphi

var
  Form1: TForm1;
  f:file of Integer;
implementation
 
{$R *.dfm}
//записать в файл
procedure TForm1.Button1Click(Sender: TObject);
var i,a:Integer;
begin
assignfile(f,'111');
Rewrite(f);
for i:=0 to Memo1.Lines.Count-1 do
 begin
  a:=strtoint(Memo1.Lines[i]);
  write(f,a);
 end;
end;
//прочитать из файла
procedure TForm1.Button2Click(Sender: TObject);
var a:Integer;
begin
Reset(f);
while not Eof(f) do
 begin
   read(f,a);
   Label1.Caption:=Label1.Caption+' '+inttostr(a)
 end;
CloseFile(f);
end;

@Дашинда 1 / 1 / 0 Регистрация: 12.10.2016 Сообщений: 59
		1
	24 Создать типизированный файл, состоящий из целых чисел, введённых в столбик в окно текстового 20.11.2016, 16:33. Показов 1687. Ответов 1 Метки нет (Все метки) Создать типизированный файл, состоящий из целых чисел, введённых в столбик в окно текстового реактора Memo. Вывести содержимое созданного фай-ла в поле метки Label 0

	20.11.2016, 17:19

24 Создать типизированный файл, состоящий из целых чисел, введённых в столбик в окно текстового

Решение