F�rum Como transformar campo de um tabela do Mysql em variavel no Delphi? #476251

14/04/2014

Ol� a Todos,

tenho o meu banco de dados que est� conectado ao Delphi via mydac, em uma tabela queria transformar um campo em uma variavel no Delphi, especificamente uma coluna com 50 linhas para um Array [1..50] of double, como posso fazer isso?

Artur Lourenco

Curtir t�pico

+ 0

Responder

Posts

15/04/2014

Artur Lourenco

descobri ta ai:

procedure TForm1.Button1Click(Sender: TObject);

var myArray: array [1..50] of double;
a: integer;

begin

a:= 1;
 DataModule2.MyQuery1.Open;

    while not DataModule2.MyQuery1.EOF do //loop until we reach the end of the dataset
    begin
    myArray[a] := DataModule2.MyQuery1Qob.Value; //read the field value to the array
    DataModule2.MyQuery1.Next;
    inc(a); //next array index
    end;

    Edit1.Text:= floattostr(myArray[50]);

end;

end.

Responder

Gostei + 0