1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
procedure TForm1.Cas_Point(table : string);
var
Ma_Requete : TQuery;
TempString, TempOid : String;
begin
Ma_Requete := TQuery.Create(Application);
try
Ma_Requete.DatabaseName := DataModule2.Database1.DatabaseName;
Ma_Requete.SQL.Add('SELECT oid, * FROM ' + table);
Ma_Requete.Open;
if not Ma_Requete.IsEmpty then
while not Ma_Requete.Eof do
begin
TempString := VarToStr(Ma_Requete.FieldByName('geometrie').Value);
TempOid := VarToStr(Ma_Requete.FieldByName('oid').Value);
Generation_VEC_PNO(TempString, TempOid);
showmessage(inttostr(Ma_Requete.FieldCount));
showmessage(Ma_Requete.FieldList.GetText);
Ma_Requete.Next;
end;
Ma_Requete.Close;
finally
Ma_Requete.Free;
end;
end; |
Partager