Besser so:
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var
MyList: THashedStringList;
Index, i: Integer;
begin
MyList := THashedStringList.Create;
try
MyList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'plzDat.txt');
index := MyList.IndexOfName(Trim(PlzEdit.Text) + ' ');
OrtEdit.Text := IfThen(index < 0, '', Trim(MyList.ValueFromIndex[index]));
finally
MyList.Free;
end;
end;
Und noch besser, wenn du die Liste nicht bei jedem Klick auf den Button erstmal laden musst. Lade sie doch einach nur einmal zu Beginn deines Programms.
Und herzlich willkommen in der
DP, Steven.
Freundliche Grüße