Record property über Variable aufrufen

[Immortalem]

Nein nicht wirklich. Es soll hier nicht nur der Name gescuht werden können, sondern auch der Vorname die Telefonnummer(hier ja ein string) usw.

Deswegen soll dann in ToSearchIn übergeben werden, wonach denn nun gesucht wird(Vorname etc. pp)

[Volker Z.]

Ist es vielleicht das was Du suchst:

Delphi-Quellcode:

If (ToSerachIn = 'Name') and (_RAdresse.Name = SearchString) then //Um diese Zeile geht es
  Begin
    SetLength(Result, Length(Result) + 1);
    Result[Length(Result) - 1] := i;
    continue
  end;

If (ToSerachIn = 'Vorname') and (_RAdresse.Vorname = SearchString) then //Um diese Zeile geht es
  Begin
    SetLength(Result, Length(Result) + 1);
    Result[Length(Result) - 1] := i;
    continue
  end;

  // usw.

Gruß

[Immortalem]

Zitat:

Ich möchte hier nicht hören, dass ich da nen Case selector einbauen kann

Es entspricht zwar dem Prinzip von dem was ich suche aber ist nicht die Lösung die ich meine, denn wie die Lösung aussehen soll habe ich ja oben geschrieben.

[Bjoerk]

Achso. Jetzt versteh' ich. Nein, mit einer property geht das meines Wissens nicht, hierzu ist eine function erforderlich.

Zum Beispiel so:

Delphi-Quellcode:

type
  TSearchFlag = (sfVorname, sfName, sfStrasse, sfOrt, sfTel, sfMail);
  TAdresse = record
    ..
    function ToSearchIn(const SearchFlag: TSearchFlag): string;
  end;

..

function TAdresse.ToSearchIn(const SearchFlag: TSearchFlag): string;
begin
  case SearchFlag of
    sfVorname:
      Result := Vorname;
    sfName:
      Result := Name;
    sfStrasse:
      Result := Strasse;
    sfOrt:
      Result := Ort;
    sfTel:
      Result := Tel;
    sfMail:
      Result := Mail;
    else
      Result := '';
  end;
end;

function CDatabase.Search(const SearchString: String; const StartPos, EndPos: Integer;
  const SearchFlag: TSearchFlag): TIntArray;
Begin
  ..

  If _RAdresse.ToSearchIn(SearchFlag) = SearchString then // Um diese Zeile geht es
  ..

end;