Daniel Rincón García wrote:
Hi, I need to capture the FieldValues of a SQLite database into a string variable.

If I do it:

   while not dsTest.EOF do
    begin
     DataToSend := DataToSend +
                            dsTest.FieldValues ['Code'] + '\' +
                            dsTest.FieldValues['Name'] + '\' +
                            dsTest.FieldValues['Address'] + '#';
     dsTest.Next;
    end;   

I have got the next error message:

Project raised exception class 'RunError(231)'.

If I do it then works:

   while not dsTest.EOF do
    begin
     Cod := dsTest.FieldValues['Code'];
     Nam := dsTest.FieldValues['Name'];
     Addr := dsTest.FieldValues['Address'];
     DataToSend := DataToSend + Cod + '\' + Nam + '\' + Addr + '#';
     dsTest.Next;
    end;   

But I have to declare three string variables (Cod, Nam and Addr).

Can you help me?
I'm not sure, but it is probably because FieldValues returns a variant.  Try using
FieldByName[...].AsString:
    
DataToSend := DataToSend +

                            dsTest.FieldByName ['Code'].AsString + '\' +
                            dsTest.FieldByName['Name'].AsString + '\' +
                            dsTest.FieldByName['Address'].AsString + '#';

Cheers,
John Sunderland

_________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives

Reply via email to