Memo - Load af tekst.

Du kan sætte et memo felt til blank med følgende code
MEMO1.clear;
eller
Memo1.text := '';

Dette kan du vælge at gøre i f.eks.
TForm1.FormCreate(Sender: TObject);
begin
memo1.clear;
END;

Hvis du har problemer med at loade et text doc ind i Memo i Onshow af en eller anden grund så gør følgende :

lav en timer som sættes til false i enabled propertien og en variable så som Firsttime : Boolean = True;

Kode eksempel :

var
Form1: TForm1;
Firsttime : Boolean = true;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if firsttime then
Begin
Firsttime := false;
timer1.enabled := false;
try
memo1.Lines.loadfromfile('C:\\textfilen.txt');
finally
//memo1 bliver sat til blank hvis ikke filen kan loades
memo1.Clear;
END;
END;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
//denne rutine kan også ligge i Oncreate istedet.
timer1.Enabled := true;
end;

end.

Sæt timeres interval værdi til en værdi der passer dig, standard er 1000(1 sekund)

mine freeware og shareware programmer : http://www.veloci.dk

Mine Freeware spil : http://www.nino.dk/gamebiz & http://www.osirisgames.com

Får ingen errors, programmet vil bare ikke loade fra filen. Men i bund
og grund skal opstarts teksten i memo'et bare være blank i stedet for
der står:"Memo1"

Hvis den bare skal starte blank kan du gå ind i memo1's object inspector, og vælge Lines, tryk på "..." for at komme ind og redigere i teksten i memo'en. Så behøver du ikke at have den tform1.show...

Venlig hilsen
MF