Tabellen zur laufzeit erstellen

[Uwe 111]

Hallo

Ich habe ein Problem mit den Feldgrößen? Könnte mir jemand mal Helfen?

Delphi-Quellcode:

      WITH table1 DO BEGIN
    DatabaseName:='DB';
    TableName:= 'Kunden.DB';
    Tabletype:=ttParadox;
    END;
    IF NOT table1.exists THEN BEGIN
      with table1 do begin
        Active    := False;
          with FieldDefs do begin
           Clear;
           Add('ID', ftAutoinc,0, True);
           Add('Vorname', ftString, 30, FALSE);
           Add('Nachname', ftString, 30, FALSE);
           Add('Strasse', ftString, 50, FALSE);
           Add('PLZ', ftInteger, 0, FALSE);
           Add('Ort', ftString, 20, FALSE);
           Add('Datum', ftDate, 0, False);
           Add('Image', ftGraphic, <---- Hier weis ich nicht weiter
      end;
         with IndexDefs do begin
           Clear;
           Add('iID', 'ID', [ixPrimary,ixUnique]);
           Add('secVorname', 'Vorname', [ixCaseInsensitive]);
         end;
          CreateTable;
          Active := True;
        end;
      end;
    end;

Vielleicht auch für die anderen Feldtypen posten?

Mfg
Uwe 111

[marabu]

Hallo Uwe,

laut Online-Hilfe sollst du statt Add() die Methode AddFieldDef() benutzen. Die Größenangabe ist für die einzelnen Feldtypen unterschiedlich zu interpretieren. Bei BLOB-Feldern (ftMemo, ftGraphic, ...) kann Size einen Wert von 0 bis 240 annehmen und legt fest, wieviel Bytes der Daten direkt in der Tabelle gespeichert werden - der Rest wird extern verwaltet. Bei ftMemo macht ein Wert größer 0 sicher Sinn, weil so schnell auf den Beginn eines Textes zugegriffen und dem Benutzer signalisiert werden kann, ob das Memo leer ist oder nicht. Bei ftGraphic würde ich Size wohl eher mit 0 angeben, da die gespeicherte Information sicher nur als Ganzes verwertet werden kann.

Grüße vom marabu

[Uwe 111]

Hallo marabu

Erst mal vielen dank für deine Antwort. Ich werde es so ausprobieren wie Du es geschrieben hast.

MfG
Uwe 111