procedure TForm1.ListBox1DblClick(Sender: TObject);
var
i: Integer;
m: string;
begin
if (Database1.Connected = False) or
(ListBox1.ItemIndex < 0) then
begin
MessageBeep(-1);
System.Exit;
end;
Memo1.Clear;
for i := 0 to (Table1.FieldCount -1) do
begin
// 각 필드의 type을 구한다
case Table1.Fields[i].DataType of
ftUnknown : m := 'Unknown ';
ftString : m := 'String ';
ftSmallint : m := 'SmallInteger';
ftInteger : m := 'Integer ';
ftWord : m := 'Word ';
ftBoolean : m := 'Boolean ';
ftFloat : m := 'Float ';
ftCurrency : m := 'Currency ';
ftBCD : m := 'BCD ';
ftDate : m := 'Date ';
ftTime : m := 'Time ';
ftDateTime : m := 'DateTime ';
ftBytes : m := 'Byte ';
ftVarBytes : m := 'VarBytes ';
ftBlob : m := 'Blob ';
ftMemo : m := 'Memo ';
ftGraphic : m := 'Graphic ';
end;
// 순번 + 타입 + 크기 + 필드명
Memo1.Lines.Add(IntToStr(i+1)+Chr(9)+m+IntToStr(Table1.Fields[i].DisplayWidth)+Chr(9)+Table1.Fields[i].DisplayLabel);
end;
end;
정확한 질문이 정확한 답변을 얻습니다.