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
