Hallo
ich habe eine Textdatei in der alle Postleitzahlen mit den dazugehörigen Orten in folgendem Format:
Zitat:
01003 = Dresden
Ich möchte folgendes machen:
ich habe zwei Tedits, in das eine schreibe ich die Postleitzahl z.B. 01003 dann soll in dem anderen TEdit der Ort automatisch eingetragen werden.
Komme mit folgendem Beispiel nicht weiter, wenn ich zum Beispiel nach
01003 = Dresden suche bekomme ich die Zeile und den Inhalt angezeigt.
Suche ich aber nur nach 01003 wird nichts gefunden.
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var
MyList: THashedStringList;
Index, i: Integer;
begin
MyList := THashedStringList.Create;
MyList.LoadFromFile(
ExtractFilePath(Application.ExeName) + 'plzDat.txt');
try
if MyList.Find('01003 = Dresden', Index) then //später dann das edit
begin
for i := 0 to MyList.Count - 1 do
begin
if MyList[i] = '01003 = Dresden' then //später dann das edit
begin
Edit2.text := MyList[i];
Edit3.text := IntToStr(Index);
end;
end; end;
finally
MyList.Free;
end;
end;
Grüsse
Steven