"nichts" für einen Record

[Sunlight7]

Zitat von xZise:

Gute Idee! Mache ich Aber wer mir agen kann, wie ich "nichts" übergeben kann, kann sich immer noch melden

Einen noch schnell:

Delphi-Quellcode:

type
   PData=^TData 
   TData = record
    Name : string;
    Age : Integer;
  end;

Delphi-Quellcode:

procedure ShowModal(data : PData);
begin
  if data = nil then begin
    // Formular zum "Ersteller" machen
  end else begin
    // Forumlar zum "Editor" machen
    Data^.Name...
  end;
end;

Und Weg, bis heut Abend