Bin erst heute dazu gekommen es mal auszuprobieren, zeigt sehr gut wie's geht, nochmal vielen Dank.
Blöderweise klappt es in der Praxis in meinem Projekt immer noch nicht, ich kriege immer noch die Zugriffsverletzung beim Assignen bei GetText, und auch wenn ich versuche manuell eine von meinen 'Ziel-Variablen' (X und Y in deinem Beispiel) zu assignen. Ich dachte eigentlich ich hätte auch alles richtig deklariert und initiiert:
Delphi-Quellcode:
public
{ Public-Deklarationen }
noteArmory, noteGear, noteAlts, noteAttunement, noteContacts :TStrings;
noteHours, noteMotivation, noteGearing, noteRole, noteHistory :TStrings;
noteComputer, noteContactInfo, varNote :TStrings;
procedure SetNote (Place: string; varNote :TStrings);
end;
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
// Objekte initiieren ist wichtig!!!
noteArmory := TStringList.Create;
noteGear := TStringList.Create;
noteAlts := TStringList.Create;
noteAttunement := TStringList.Create;
noteContacts := TStringList.Create;
noteHours := TStringList.Create;
noteMotivation := TStringList.Create;
noteGearing := TStringList.Create;
noteRole := TStringList.Create;
noteHistory := TStringList.Create;
noteComputer := TStringList.Create;
noteContactInfo := TStringList.Create;
end;
Delphi-Quellcode:
procedure TForm1.SetNote (Place: string; varNote :TStrings);
begin
// formNoteWindow.Caption := Place;
// Text in den Editor schieben
if VarNote <> nil then formNoteWindow.SetText(varNote);
// nur wenn OK gedrückt wurde (siehe Modal-Result der beiden
// Buttons nei der Editor-Form)
if formNoteWindow.ShowModal = mrOK then
// Hole den text zurück
formNoteWindow.GetText(varNote);
// säubere Editor
formNoteWindow.ClearText;
end;
Delphi-Quellcode:
procedure TformNoteWindow.GetText(varNote: TStrings);
begin
// den übergeben Strings die DATEN des Memos setzen
varNote.Assign(memoNoteWindow.Lines);
end;
Nachdem ich jetzt stundenlang ergebnislos auf den code gestarrt habe ohne den Fehler zu finden muss ich dich leider nochmal damit belästigen
