Ich habe in
Unit B (ist ein Formular) ein Record:
Delphi-Quellcode:
type
TData = record
Name : string;
Age : Integer;
end;
Jetzt rufe über
Unit A die
Unit B auf (ein Fenster erscheint), indem man die Daten ändert, oder eine neue Person erstellt.
Jetzt möchte ich die Anzeige Prozedur aufrufen:
(Aufruf
Delphi-Quellcode:
procedure CreatePerson;
begin
UnitB.FormB.ShowModal("nichts");
end;
(AnzeigeProzedur
Delphi-Quellcode:
procedure ShowModal(data : TData);
begin
if data = "nichts" then begin
// Formular zum "Ersteller" machen
end else begin
// Forumlar zum "Editor" machen
end;
end;
Meine Frage ist jetzt: Wie kann ich "nichts" übergeben?
Mit "nil" funktioniert es nicht:
"Er erwartet keinen Pointer"
Kann ich es ggf. anders umsetzen?