Einzelnen Beitrag anzeigen

aaaaaaaaaa_10
(Gast)

n/a Beiträge
 
#8

Re: Txt.File zu DB kopieren ?

  Alt 5. Aug 2009, 08:01
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?
  Mit Zitat antworten Zitat