Für was um Gottes Willen durchläufst du denn die ganze Stringlist ...
das reicht auch !!!
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var
MyList: THashedStringList;
Index: Integer;
begin
MyList := THashedStringList.Create;
MyList.LoadFromFile(
ExtractFilePath(Application.ExeName) + 'plzDat.txt');
try
index := MyList.IndexOfName(PlzEdit.Text + ' ');
If index > -1 Then
OrtEdit.Text := Trim(MyList.ValueFromIndex[index]);
finally
MyList.Free;
end;
end;