Hallo Tommy1988,
vielleicht sollt du uns mal die Procedure zeigen, damit man dir gezielt weiterhelfen kann. Du kannst doch im Procedure – Kopf Variablen als var Parameter zurückgeben. Alternativ kann man die Variablen auch unter public in der Form – class anlegen.
Das ist die Procedure zum Erstellen:
Delphi-Quellcode:
procedure MemoErstellen (var MyMemo: TMemo; FileName: String; Tab:TTabSheet);
begin
MyMemo.parent:= Tab;
MyMemo.Name:= 'TestMemo';
MyMemo.SetBounds(16,185,313,185);
MyMemo.Lines.LoadFromFile(FileName);
end;
Damit wird das Memo aufgerufen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MemoX: TMemo;
begin
MemoX:= TMemo.Create(self);
// MemoX:= TMemo.Create(self);
// MemoX.parent:= TabSheet2;
// MemoX.Name:= 'TestMemo';
// MemoX.SetBounds(16,185,313,185);
// MemoX.lines.Add ('Zeile 1');
// MemoX.Lines.Add ('Zeile 2');
// MemoX.Lines.SaveToFile('C:\temp\test');
// MemoX.Lines.LoadFromFile('C:\temp\test');
MemoErstellen (MemoX, 'C:\temp\test', TabSheet2);
end;
Das ist nur ein Beispiel es gibt noch andere Möglichkeiten.
Bis bald Chemiker