Ödev

[thesvn]

(19-01-2023, Saat: 13:44)cinarbil Adlı Kullanıcıdan Alıntı: İnşaallah sana yardımcı oluyorumdur.
ekli dosya 1. soru için en basit cevap
istersen biraz değiştir.
memo, button, savedialog ve opendialog kullanıldı
gerisi sende.
dosya adı dosya uzantısı seçme gibi arkesuarlar eklersin.

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   Button2: TButton;
   SaveDialog1: TSaveDialog;
   OpenDialog1: TOpenDialog;
   Button3: TButton;
   procedure Button3Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute();
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
savedialog1.Execute();
memo1.Lines.SaveToFile(savedialog1.Filename);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Clear;
end;

end.

teşekkürlerr