Dosya İşleme Örnekleri Arkadaşlar burada dosyayı ekleme için açıp veri ekliyoruz.

assign komutu ile dosya değişkenin path atıyoruz
append ile dosyayı eklemek üzere açıyoruz
writeln komutları ile dosyaya yazıyoruz

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
myfile:Textfile;
begin
Assignfile(myfile,'myout.txt');
Append(myfile);
Writeln(myfile,'test');
Writeln(myfile,'End');
CloseFile(myFile);
end;

end.

evet arkadaşalr şimdi de okuma işlemi yapalım.

burada da gene assign ile path belirtiyoruz
daha sonra reset ile dosyayı okuma modunda açıp
readln komutları ile dosyadan veri okuyoruz

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
myfile:Textfile;
strInputtring;
begin
AssignFile(myfile,'myout.txt');
Reset(myfile);
Readln(myfile,strInput);
Closefile(myfile);
Label1.Caption:=strInput;

end;