Prüfen ob rekord werte enthält

[Pseudemys Nelsoni]

moin,

ich übergebe einer funktion ein rekord, der dort gefüllt wird (oder eben auch nicht), wie prüf ich nun wenn die funktion beendet ist ob der rekord irgendetwas enthält? (ohne die einzelnen membervariablen durchgucken zu müssen)

[Dax]

Wenn dein Record keine Pointer(Klasse, Longstring, Px's) enthält, könntest du den Speicherbereich Byte für Byte durchgehen, oder in Wordbereichen, DWord-, Int64-Bereichen, das bleibt dir überlassen.

[BKempf]

Delphi-Quellcode:

type
  TDatensatz=record
    bla:integer;
    blubb:word;
    DatenGueltig:boolean;
  end;

Dann DatenGueltig vor Aufruf der Funktion mit false initialisieren und in der Funktion gegebenenfalls auf true setzen.

[Jens Schumann]

Hallo,
spendiere dem Record doch ein Boolean Feld
Beispeil

Delphi-Quellcode:

TMyRecord=Record
          Wert : String;
          Ok   : Boolean;
          end;

Wenn Ok True ist, hat die Funktion eine String in Wert geschrieben.
Wenn nicht ist Ok eben False

[Sharky]

Zitat von Pseudemys Nelsoni:

...ich übergebe einer funktion ein rekord, der dort gefüllt wird (oder eben auch nicht)...

Hai,
wenn ich das richtig lese wird ja in der Funktion entschieden ob der Record gefüllt wird oder nicht?
Dann übergebe den Record doch als VAR-Paramter an die Funktion und als Ergbniss der Funktion ein True bei gefüllt.

Delphi-Quellcode:

Function FillRecord (VAR value : TMyRecord) : Boolean;
begin
  result := False;
  if (record_wird_gefuell) then
  begin
    result := True;
    value.inhalt := 'blubb';
  end;
end;

procedure Test;
var
  foo : TMyRecord;
begin
  if (FillRecord (foo)) then
  begin
    ShowMessage ('Record ist gefüllt');
  end;
end;

[Pseudemys Nelsoni]

hallo leute,

alles gute idden, danke