marabu scheint die gleiche idee gehabt zu haben wie ich, hab nämlich grad mal sowas zum test geschrieben wie man die Vorwahl ermittelt.
Delphi-Quellcode:
var LVorwahlen: TStringList;
LIndex: Integer;
begin
LVorwahlen := TStringList.Create;
LVorwahlen.Sorted := True;
//LVorwahlen mit Vorwahlen aus DB füllen
if LVorwahlen.Find(Edit1.Text, LIndex)
then
ShowMessage('
es handlet sich um eine Vorwahl.')
else begin
if (LIndex > 0)
and AnsiStartsText(LVorwahlen.Strings[LIndex-1], Edit1.Text)
then
ShowMessage('
Vorwahl ist: ' + LVorwahlen.Strings[LIndex-1])
else
ShowMessage('
Keine Vorwahl gefunden');
end;
LVorwahlen.Free;