eine erklärung bitte

[adi_svadi]

kann mir mal einer ganz kurz diese unit erklären (so im groben). die steht in meinem buch (jetzt lerne ich delphi), bzw auf der cd dazu und soll die lösung von einem bsp sein. nur ich check da gar nix (rein gar nix)! bitte!

Delphi-Quellcode:

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
    i:Integer;
begin
  AssignFile(f,'c:\test.txt');
  ReWrite(f);
  for i:=0 to Memo1.Lines.Count-1 do
    WriteLn(f,Memo1.Lines[i]);
  closeFile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var f:TextFile;
    s:string;
begin
  Memo1.Clear;
  AssignFile(f,'c:\test.txt');
  Reset(f);
  while not eof(f) do
  begin
    ReadLn(f,s);
    Memo1.Lines.Add(s);
  end;
  closeFile(f);
end;

end.

[edit=Luckie]Delphi-Code-tags eingefügt. Beim nächsten mal bitte selber machen. Danke. Mfg, Luckie[/edit]