Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Ödev
#11
(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 Blush
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Ödev yardımı Ozo 4 268 07-03-2024, Saat: 00:59
Son Yorum: TuncayDelphi



Konuyu Okuyanlar: 1 Ziyaretçi