ein kleine Unterfunktion bringt Ordnung in den Code.
Du brauchst eine Funktion, die dir x-Stellen der Telnr von links liefert:
Delphi-Quellcode:
function PhoneLeftPart(anz:integer):string;
begin
result := StrLeft(TrimLeft(qryAnrufe.FieldByName('telnummer').AsString), anz);
end;
Dann einfach das Ganze in einer Schleife:
Delphi-Quellcode:
ort := 'unbekannt';
for i := 6 downto 3 do
begin
sVw := PhoneLeftPart(i);
if tblVorwahlen.Locate('vorwahl', sVw, []) then
begin
ort := tblVorwahlen.FieldByName('ort').AsString
break;
end;
end;
li.Captions[4] := ort;
Mit Zwischenvariablen (z.B. ort:string)wird die Sache schon wesentlich eleganter.