Hallo,
warum spendierst du deinem Formular keine Methode, mit der Text in ein Memo eingefügt werden kann?
Delphi-Quellcode:
type
TResultForm = class (TForm) // oder wie auch immer die Klasse heißt...
[...]
public
procedure AddDataLine (const s: string);
end;
procedure TResultForm.AddDataLine (const s: string);
begin
Memo_daten_1.Lines.Add(s);
end;
// Aufruf:
frm_create_result_doc.AddDataLine ('Hallo Welt');
Falls du später das Memo durch eine andere Komponente ersetzen solltest, sind nur Änderungen in der Formular-
Unit notwendig, nicht aber bei den verwendenden Units.
Wenn du zwischen mehreren Memos unterscheiden möchtest, kannst du das ja über einen weiteren Parameter steuern (Memo-Nummer o.ä.). Die dann erforderliche Fallunterscheidung wird da implementiert, wo sie hingehört - in der
Unit, die auch die Memos enthält. Un um Lukas' Vorschlag noch aufzugreifen: wenn du Verweise auf die Memos einmalig im OnCreate des Formulars in einem Array ablegst, dann benötigst du nicht einmal eine Fallunterscheidung.
Gruß Hawkeye