Probleme mit TMemo.Create

[benst]

Hi,

ich habe da ein kurze Frage... Habe dafür ein kleines Beispiel geschrieben (das ist nicht mein eigentliches Programm, die Zeilen sollen nur meine Frage beschreiben)...

Delphi-Quellcode:

procedure TextCopy(a, b: String);
var Memo: TMemo;
begin
  if FileExists(a) then
    begin
    Memo:=TMemo.Create(nil);
    Memo.Lines.LoadFromFile(a);
    Memo.Lines.SaveToFile(b);
    Memo.Lines.Clear;
    end;
end;

Dies führt zu einer Fehlermedlung: "Element '' hat kein übergeordnetes Fenster." Ich habe "nil" schon durch "Form1" ersetzt, aber das bringt auch nichts.
Was mache ich falsch?

Gruß
Ben

[Thorben_Ko]

da TMemo ein komponennte ist, musst du den parent setzen

Delphi-Quellcode:

procedure TextCopy(a, b: String); 
var Memo: TMemo; 
begin 
  if FileExists(a) then 
    begin 
    Memo:=TMemo.Create(self); 
    Memo.Parent := Form1;
    Memo.Lines.LoadFromFile(a); 
    Memo.Lines.SaveToFile(b); 
    Memo.Lines.Clear; 
    Memo.Free; //Freigeben net vergessen
    end; 
end;

[Luckie]

Wer benutzt den eine Memo, um Dateien zu kopieren? :gruebel:

[benst]

Danke.
Stimmt, 'free' hatte ich in meinem kleinen Beispiel vergessen. Ist es aber denn sinnvoll die Zeilen zu löschen, wenn ich das gesamte Memo in der nächsten Zeile eh freigeben.

@Luckie: Wie schon erwähnt, geht es mir nicht darum eine Datei zu kopieren... Mir ist nur gerade kein besseres Beispiel eingefallen...

[benst]

Ist es sinnvoll "free" mit "try"..."finally" zu koppeln?
Also quasi...

Delphi-Quellcode:

Memo:=TMemo.Create(self);
...
try
...
finally
Memo.Free;

[Luckie]

Jupp.