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]