IsTable ve IsField

[izmirlikemal]

//Alan Numarası
//Bu fonksiyon, adı bilinen bir alanın, tablo içerisindeki sırasını bulur.
Function DBFieldNo(DatabaseName, TableName, FieldName: String): Integer;
Var
Table : TTable;
FieldIndex : Integer;
FieldNumber: Integer;
Begin
Result := -1;
If Not IsTable(DatabaseName, TableName) Then Exit;
If Not IsField(DatabaseName, TableName, FieldName) Then Exit;
Table := TTable.Create(nil);
Try
Try
Table.Active := False;
Table.DatabaseName := DatabaseName;
Table.TableName := TableName;
Table.Active := True;
FieldIndex := Table.FieldDefs.IndexOf(FieldName);
FieldNumber := Table.FieldDefs[FieldIndex].FieldNo;
Result := FieldNumber;
Except
End;
Finally
Table.Free;
End;
End;

Yukarıda internet den alınmış Table deki alan numarasını veren fonksiyonu yazdım.
Sorunum:
Burada 10 ve 11. satırdaki IsTable ve IsField kodu hata veriyor.
Sebebi nedir?.
Yardımcı olursanız memnun olurum.
Yardım eden veya etmeyen her arkadaşıma teşekkür ederim.

[xozcanx]

Kod: Tümünü seç

If Not IsTable(DatabaseName, TableName) Then Exit;
If Not IsField(DatabaseName, TableName, FieldName) Then Exit;

Yerine

Kod: Tümünü seç

If Not (IsTable(DatabaseName, TableName)) Then Exit;
If Not (IsField(DatabaseName, TableName, FieldName)) Then Exit;

[SimaWB]

Kod: Tümünü seç

If Not IsTable(DatabaseName, TableName) Then Exit;
If Not IsField(DatabaseName, TableName, FieldName) Then Exit;

Yerine

Kod: Tümünü seç

If Not (IsTable(DatabaseName, TableName)) Then Exit;
If Not (IsField(DatabaseName, TableName, FieldName)) Then Exit;

İkisi de aynıdır...

[SimaWB]

IsTable ve IsField fonksiyonlarını sizin tanımlamanız gerekiyor.
Sanırım bu linkteki fonksiyonlar işinizi görür.

[izmirlikemal]

Sayın xozanx ve SimaWB verdiğiniz bilgilere teşekkür ederim.

[izmirlikemal]

Teşekkürler verdiğiniz bilgiler yaralı oldu.