Zitat von
Alfredo:
So funktioniert es mit
BDE und Foxpro:
Delphi-Quellcode:
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
table3.TableName := 'Pfad\test.dbf';
table3.TableType := ttFoxPro;
table3.Active := true;
table3.Append;
table3.FieldByName('test1').AsString := '20.05.2010 15:31:34';
table3.FieldByName('test2').asfloat := 40318.6469213;
table3.FieldByName('test3').AsFloat := 123.626;
table3.Post;
end;
q.e.d.
Gruß
Alfred
Und hier der entsprechende Quellcode mit
BDE und Topaz:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
//TzDbf2.TableName := 'Pfad\test.dbf';
TzDbf2.DbfFileName := 'Pfad\test.dbf';
//TzDbf2.TableType := ttFoxPro;
TzDbf2.Active := true;
TzDbf2.Append;
TzDbf2.FieldByName('name').AsString := '20.05.2010 15:31:34';
TzDbf2.FieldByName('age').asfloat := 40318.6469213;
TzDbf2.FieldByName('amount').AsFloat := 123.626;
TzDbf2.Post;
end;
Das ist schon einmal der erste Schritt.
Aber noch bestehen grafische, feste Komponenten (TTzDbf, TDataSource). Diese müssen noch durch Quellcode ersetzt werden.
Die Spalten der dBase-Datei sollen ja zur Laufzeit aus den Einträgen einer ini-Datei erstellt werden.
Anschließend soll dann mit diesen dynamisch generierten Spalten gearbeitet werden.