MyList.ValueFromIndex[index]

[Steven2]

Hallo,

Mit dem Delphi-Quellcode: kann tippe ich eine Postleitzahl in ein Edit ein und bekomme in einem anderen Edit den dazugehörigen Ort angezeigt

Da ich heute erfahren habe das eine Postleitzahl auch für verschiedene Orte gültig sein kann.
Z.B.

Zitat:

21385;Amelinghausen
21385;Oldendorf
21385;Rehlingen

Ich würde gerne wenn eine PLZ für mehrere Orte gültig ist diese Orte in einer Combobox darstellen, wie muss ich das machen?
 combobox1,items.add(Trim(MyList.ValueFromIndex[index])); funktioniert nicht

Delphi-Quellcode:

... 
  private 
    { Private declarations } 
    MyList: THashedStringList; 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  MyList := THashedStringList.Create; 
  MyList.LoadFromFile( 
    ExtractFilePath(Application.ExeName) + 'plzDat.txt'); 
    MyList.NameValueSeparator := ';';
... 
end; 

//--angepasste proc von ACE-ppc: 
procedure TForm1.Button8Click(Sender: TObject); 
var 
  Index: Integer; 
begin 
    index := MyList.IndexOfName(PlzEdit.Text + ' '); 
    If index > -1 Then 
    OrtEdit.Text := Trim(MyList.ValueFromIndex[index]); 
end; 

//--jetzte erst die Liste freigeben 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
... 
   MyList.Free; 
... 
end;