Text-datei und PLZ

[Klaus01]

Hallo,

prinzipiell könnte es so gehen.

Delphi-Quellcode:

var
 sl: TStringList;
 plz : TStringList;
 ort : StringList;

begin
  plz := TStringList.create;
  ort := TStringList.create;
  sl:=TStringList.create;
  sl.loadFromFile(DeineTextDatei);
  for i:=0 to sl.count -1 do
    begin
      plz.add(copy(sl[i],1,5));
      ort.add(copy(sl[i],6,length(sl[i])));
    end;
  sl.free;
  plzEdit.text:=plz[ort.indexOf(ortEdit.text)];
  plz.free;
  ort.free;
end;

Grüße
Klaus