Delphi-Quellcode:
procedure TMomFiles.DatenbankErstellen;
var //ZehnMin, Datenbank : string;
t : TTable;
sl : TStringList;
i : integer;
begin
sl := TStringList.Create;
try
sl.Delimiter := #9;
sl.DelimitedText := TabHead; //Tabellenkopf
t := TTable.Create(nil);
with t do
begin
Close;
DataBaseName := ExtractFilePath(application.exename);
TableName := ExtractFilePath(application.exename)+'Datenbank_'+Kennung+'.db';
TableType := ttParadox;
with FieldDefs do
begin
Clear;
for i := 0 to sl.Count-1 do
begin
Add(sl.Strings[i], ftFloat,0,False);
end;
CreateTable;
end;
end;
finally
Free;
sl.Free;
end;
DatenbankFuellen;
end;
Das hab ich bisher gemacht und es wird auch eine
DB erstellt. Aber wie bekomme ich da jetzt Werte rein?