Herausfinden ob Memofeld oder Grafikfeld enthalten ist ?

[smart]

Ich habe verschiedene Datenbankdateien mit verschiedenen Tabellen. Wie kann ich, durch klick auf TDBGrid herausfinden, ob eine Memofeld oder ein Grafikfeld enthalten ist und dann entsprechend reagieren?

[Sharky]

Zitat:

Zitat von smart

..Wie kann ich, durch klick auf TDBGrid herausfinden,

Meinst Du jetzt zur Laufzeit des Programmes?

[jensw_2000]

Hi,

du kannst einfach die Fields des Datasets durchlaufenn und dann mit {dataset}.DataType herausfinden, um was für ein Feld es sich handelt ... Suche mal in der Hilfe nach TFieldType ...

Die FeldTypen solltest du am jedoch noch einmal mit deiner (ads)Dataset Componente vergleichen.
Es kann durchaus ein paar Unterschiede zu TDataset.Fields[].DataType geben.

Beispiel

Delphi-Quellcode:

  with tbl do
  begin
    for i := 0 to tbl.fields.count - 1 do
    begin
      case Fields[i].DataType of
        ftUnknown: // mach was
          ftString: // mach was
          ftSmallint: // mach was
          ftInteger: // mach was
          ftWord: // mach was
          ftBoolean: // mach was
          ftFloat: // mach was
          ftCurrency: // mach was
          ftBCD: // mach was
          ftDate: // mach was
          ftTime: // mach was
          ftDateTime: // mach was
          ftBytes: // mach was
          ftVarBytes: // mach was
          ftAutoInc: // mach was
          ftBlob: // mach was
          ftMemo: // mach was
          ftGraphic: // mach was
          ftFmtMemo: // mach was
          ...
      end; // case
    end; //case
  end; //with
end;

[smart]

Zitat:

Zitat von Sharky

Meinst Du jetzt zur Laufzeit des Programmes?

Ja, ein TDBGrid kann ja kein Memofeld oder Grafikfeld anzeigen. Daher wollte ich beim klick auf so ein Feld eine Form öffnen lassen, die das Feld dann anzeigt.

[Sharky]

Zitat:

Zitat von jensw_2000

... Es kann durchaus ein paar Unterschiede zu TDataset.Fields[].DataType geben. ...

Jup, einige gibt es. Ich habe mal eben meine Unterlagen durchsucht ;-)

Delphi-Quellcode:

  case ABSQuery1.AdvFieldDefs[1].DataType of // oder ABSTable
    aftUnknown: ;
    aftChar: ;
    aftString: ;
    aftWideChar: ;
    aftWideString: ;
    aftShortint: ;
    aftSmallint: ;
    aftInteger: ;
    aftLargeint: ;
    aftByte: ;
    aftWord: ;
    aftCardinal: ;
    aftAutoInc: ;
    aftAutoIncShortint: ;
    aftAutoIncSmallint: ;
    aftAutoIncInteger: ;
    aftAutoIncLargeint: ;
    aftAutoIncByte: ;
    aftAutoIncWord: ;
    aftAutoIncCardinal: ;
    aftSingle: ;
    aftDouble: ;
    aftExtended: ;
    aftBoolean: ;
    aftCurrency: ;
    aftDate: ;
    aftTime: ;
    aftDateTime: ;
    aftTimeStamp: ;
    aftBytes: ;
    aftVarBytes: ;
    aftBlob: ;
    aftGraphic: ;
    aftMemo: ;
    aftFormattedMemo: ;
    aftWideMemo: ;
    aftGuid: ;
  end; // case

Es gibt eigentlich nur bei den AutoInc-Typen einen Unterschied zu den "normalen":

Code:

ABSType            - FieldType
------------------------------
aftAUTOINC         - ftAUTOINC
aftAUTOINCSHORTINT - ftAUTOINC
aftAUTOINCSMALLINT - ftAUTOINC
aftAUTOINCINTEGER  - ftAUTOINC
[b]aftAUTOINCLARGEINT - [color=red]ftLARGEINT[/color][/b] // Das ist eine Stolperfalle
aftAUTOINCBYTE     - ftAUTOINC
aftAUTOINCWORD     - ftAUTOINC
aftAUTOINCCARDINAL - ftAUTOINC

[smart]

Ja, habe ich geschnallt. Aber eigentlich brauche ich doch nur:

Delphi-Quellcode:

with tbl do 
  begin 
    for i := 0 to tbl.fields.count - 1 do 
    begin 
      case Fields[i].DataType of 

          ftGraphic: // mach was 
          ftFmtMemo: // mach was 
          ... 
      end; // case 
    end; //case 
  end; //with 
end;

Oder?

[marabu]

Hallo Heike,

wenn du dein BLOB-Feld in einem Dialog anzeigen willst, dann kannst du doch einfach ein TDBMemo verwenden - eine vorherige Prüfung auf den Feldtyp erübrigt sich dann eigentlich.

Grüße vom marabu

[Sharky]

Zitat:

Zitat von smart

Ja, habe ich geschnallt. Aber eigentlich brauche ich doch nur:

Hai Mädel :stupid:
Eigentlich sollte es so reichen. Eventuell noch eine Prüfung ob es ftMemo ist.

[Sharky]

Zitat:

Zitat von marabu

... eine vorherige Prüfung auf den Feldtyp erübrigt sich dann eigentlich.

Hai marabu,
dann gehst Du aber davon aus das bekannt ist das in der Tabelle ein Blobfeld ist. Ich "glaube" Heike möchte eine Oberfläche für ABS-Datenbanken schreiben von der sie die Struktur nicht kennt.

[marabu]

Wenn das so ist, dann halte ich lieber meinen Schnabel.

marabu

[Sharky]

Zitat:

Zitat von marabu

Wenn das so ist, dann halte ich lieber meinen Schnabel.

:?: Habe ich jetzt etwas falsch gesagt? :gruebel:

[smart]

So ganz klappt es doch nicht

Delphi-Quellcode:

with Tabelle do 
  begin 
    for i := 0 to Talle.fields.count - 1 do 
    begin 
      case Fields[i].DataType of 
          ftGraphic: // mach was 
          ftFmtMemo: // mach was 
      end; // case 
    end; //case 
  end; //with 
end;

Wenn ich so abfrage und in der Tabelle sind beide Typen enthalten, dann habe ich keine Unterscheidung (Es werden beide abgearbeitet). Eigentlich sollte es so sein, wenn ich auf ein Feld im DBGrid clicke soll, je nach dem was es für ein Typ (ftGraphic oder ftMemo) ist, zB. eine Form mit ein TDBMemo oder TDBImage aufgehen. Hat Einer einen Tipp wie man soetws angehen kann?

[Union]

Zitat:

Zitat von smart

So ganz klappt es doch nicht

Delphi-Quellcode:

with Tabelle do 
  begin 
    for i := 0 to Talle.fields.count - 1 do 
    begin 
      case Fields[i].DataType of 
          ftGraphic: // mach was 
          ftFmtMemo: // mach was 
      end; // case 
    end; //case 
  end; //with 
end;

Wenn ich so abfrage und in der Tabelle sind beide Typen, enthalten habe ich keine Unterscheidung (Es werden beide abgearbeitet). Eigentlich sollte es so sein, wenn ich auf ein Feld im DBGrid clicke soll, je nach dem was es für ein Typ (ftGraphic oder ftMemo) ist, zB. eine Form mit ein TDBMemo oder TDBImage aufgehen. Hat Einer einen Tipp wie man soetws angehen kann?

So sollte es gehen:

Delphi-Quellcode:

procedure TBrowseForm.BrowseGrid1DblClick(Sender: TObject);
begin

   if ( BrowseGrid.SelectedField.DataType = ftMemo ) or
      ( BrowseGrid.SelectedField.DataType = ftBlob ) then
   begin
      // Hier kann man dann mit SelectedField alles mögliche anstellen...
   end;
end;

[Edit]Delphi-tag vergessen :wall: [/Edit]

[smart]

Zitat:

Zitat von Union

So sollte es gehen:

Vielen Dank Union, klappt gut.