String an Position x ausgeben lassen

[alleinherrscher]

Der Code von mir oben liefert dir doch direkt die Zeile, in der die PLZ gefunden wurde. Diese ist noch in der Variablen aline gespeichert, wenn die Schleife verlassen wird. Das einzige was du noch machen müsstest ist, aus der Zeile den Stadtnamen zu isolieren. Dafür würd ich mir z.B. mal ansehen, mit welchem Zeichen die PLZ etc. getrennt sind in der Datei. Ich schätze mal, es ist ein Tabulator. Dann trennst du die Zeile anhand des Tabulators auf, und schon hast du deinen Stadtnamen.

Ist vielleicht nicht die performanteste Lösung, aber auf jedenfall einfacher zu verstehen als der Code, den du eben gepostet hast.

@ himitsu: Okay, wir haben ja alle genug speicher dafür, aber im Grunde ist die Datei doch ein bisschen sehr groß, um sie komplett in den Speicher zu laden...

//edit: Okay, es sind keine Tabulatoren als Trennzeichen, sondern Leerzeichen. Aber die Position (Anzahl der Zeichen vom Start der Zeile) der einzelnen Einträge ist immer gleich.

Den Stadtnamen kannste also z.B. so erhalten:

Delphi-Quellcode:

function PLZtoStadt(afilename:string;gesuchte_PLZ:string):string;
var T:Textfile;
    found_PLZ:boolean;
    aline:string;
begin


found_PLZ:=false;
assignfile(T,afilename);

reset(T);
while (not eof(T)) and (not found_PLZ) do
begin
   readln(T,aline);
   if pos(gesuchte_PLZ,aline)>0 then found_PLZ:=true;
end;

closefile(T);

result:=trim(copy(aline,0,45)); //Liefert den Stadtnamen zurück.

end;