Guten Abend zusammen,
Ich habe folgendes Problem:
Delphi-Quellcode:
function CDatabase.Search(SearchString : String; StartPos, EndPos : Integer; ToSearchIn : String) : TIntArray;
Var
i : Integer;
Begin
If (StartPos >= 0) and (EndPos >= 0) and (EndPos < FileSize(_Datei)) then
Begin
For i := StartPos to EndPos do
Begin
_aktuellerRecord := i;
LeseZeile();
If _RAdresse.Name = SearchString then //Um diese Zeile geht es
Begin
SetLength(Result, Length(Result) + 1);
Result[Length(Result) - 1] := i;
end;
end;
end;
ShowMessage('Kein Datensatz gefunden.');
end;
Dieser Quzellcode funktioniert zwar einwandfrei, doch nun möchte ich die Procedur so umstrukturieren, dass sie so aussieht:
Delphi-Quellcode:
function CDatabase.Search(SearchString : String; StartPos, EndPos : Integer; ToSearchIn : String) : TIntArray;
Var
i : Integer;
Begin
If (StartPos >= 0) and (EndPos >= 0) and (EndPos < FileSize(_Datei)) then
Begin
For i := StartPos to EndPos do
Begin
_aktuellerRecord := i;
LeseZeile();
If _RAdresse.ToSerachIn = SearchString then //Um diese Zeile geht es
Begin
SetLength(Result, Length(Result) + 1);
Result[Length(Result) - 1] := i;
end;
end;
end;
ShowMessage('Kein Datensatz gefunden.');
end;
Wie dies schon zeigt soll dadurch dem Record gesagt werden, von wo denn der Wert genommen werden soll.
Der Record sieht so aus:
Delphi-Quellcode:
TAdresse = record
Vorname, Name, Strasse, Ort, Tel, Mail : string[50];
Plz, BuchstabenID : Integer;
end;
Ich möchte hier nicht hören, dass ich da nen Case selector einbauen kann sondern eine praktikable Lösung. Dieses Problem hatte ich nun schon öfters ohne eine Lösung zu finden und möchte nun gerne endlich eine Lösung dafür haben. Und
RTTI Varianten fallen weg, da diese meines Wissens nach erst ab Delphi 2010 gibt und ich Delphi 5 habe.