>   Supposing you have a stringlist filled this way:
> 
>   TagValueList.Values['Date']:=DateToStr(Date);
>   TagValueList.Values['Time']:=TimeToStr(Time);
> 
> You can convert this list to an array of TVarRec using this code:
> 
>   setlength(tags,TagValueList.count*2);
>   i:=0;
>   while i<TagValueList.count do
>   begin
>       tags[i].VType:=vtPChar;
>       tags[i].Vpchar:=pointer(strnew(pchar(TagValueList.Names[i])));
>       tags[i+1].VType:=vtPChar;
> tags[i+1].Vpchar:=pointer(strnew(pchar(TagValueList.ValueFromIndex[i])));
>       inc(i,2);
>   end;
> 
>   ClientCnx.AnswerPage(Flags,'','','status.html',nil,tags);
> 
>  for i:=low(tags) to high(tags) do
>   strdispose(tags[i].vpchar);

Way cool, this finally worked.

Thank you very much

Florian
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to