record auslesen --> combobox

[Nisbo]

Moin Moin

ich habe diese beiden prozeduren:

Delphi-Quellcode:

// Zum Bearbeiten auswählen
procedure TForm2.bearbeiten(Sender: TObject);
begin
  SatzSpeichern;                               // speichern
  aktueller_record := ComboBox1.ItemIndex + 1; // Datensatz bestimmen
  SatzLadenAnzeigen;                           // Datensatz laden
end;


// DropDown generieren
procedure TForm2.bearbeitenliste(Sender: TObject);
begin
   // Info für euch was was ist
   // aktueller_record: Integer;      // Datensatznummer
   // RAdresse: TAdresse;             // Rekordvariable
   // adress_datei: file of TAdresse; // Dateivariable

{ Was hier zu beginn }

   Seek(adress_datei, aktueller_record-1); // Datenzeiger setzen (beginnt bei 0, deshalb -1)
   Read(adress_datei, RAdresse);           // Satz lesen

   ComboBox1.Items.Text := ComboBox1.Items.Text + RAdresse.UAC_Verbindung;

{ Was hier zum Ende }
end;

die erste ist klar und nur zum verständnis gedacht was ich mache,
geht darum einen eintrag (UAC_Verbindung) aus dem datensatz pro Eintrag in die ComboBox zu schreiben
also so das man in einem PullDown auswählen kann was man bearbeiten will.

Also quasi in der Art pro Zeile auslesen

hoffe das war verständlich ausgedrück