Ответы
Ответ дал:
0
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := Edit1.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f: textFile;
begin
AssignFile(f, 'C:UsersHRAshtonDesktopout.txt');
rewrite(f);
Write(f, Memo1.Text);
closeFile(f);
end;
Воть, приклейте эти процедуры на кнопки:)
begin
Memo1.Text := Edit1.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f: textFile;
begin
AssignFile(f, 'C:UsersHRAshtonDesktopout.txt');
rewrite(f);
Write(f, Memo1.Text);
closeFile(f);
end;
Воть, приклейте эти процедуры на кнопки:)
Приложения:

Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад