Ich habe hier noch eine alte dBASE IV Datei namens adressen.dbf mit einer Indexdatei adressen.mdx. In der adressen.mdx gibt es den Index name und vorname. Habe mir ein GUI erstellt mit TDBF und Datasource sowie DBGrid als Tabelle. dBase Dateien können mit openDialog erfolgreich geladen werden. Hab nun eine ListBox eingebaut, die nach dem öffnen der adressen.dbf automatisch die vorhandenen Indexe name und vorname in der ListBox eingelesen werden. Komme leider nicht weiter. Mein bisheriger Code:
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
if OpenDialog1.Execute then
begin
Dbf1.Close; //Falls noch eine Datenbank geöffnet war
DBGrid1.DataSource := (nil);
DBMemo1.DataSource := (nil);
DBMemo1.DataField := '';
Dbf1.TableName:=OpenDialog1.FileName;
DBGrid1.DataSource := Form1.DataSource1 ;
DBMemo1.DataSource := Form1.DataSource1;
Dbf1.Active:=true;
ListBox2.Clear;
// ListBox2.Items.Add('name');
// ListBox2.Items.Add('vorname');
for I:=Listbox2.Items.Count-1 downto 0 do
begin
// An dieser Stelle komme ich nicht weiter.
Listbox2.Items.Add(Form1.Dbf1.??????)
end;
lazfan