проблемы с длиной строки (возврвщается пустая строка)

[NieL]

есть некий результат запроса, который имеет вид:

main_Id group_id
1 81
2 81
3 81
4 82

Нужно пробегая по записям формировать строки main_id, разделенные запятой с одинаковыми группами и выводить их скажем через ShowMessage

получается:

первая строка - 1,2,3
вторая строка - 4

Делаю так: (вроде как работает как надо)

cmp_QueryByField_.First;
_Result := 0;
id := f2.AsInteger;
s := '';
while not cmp_QueryByField_.Eof do
begin
  if f2.AsInteger = id then
   s := s + ' '
  else
  begin
    if s[1] = ',' then
     System.Delete(s, 1, 1);
   ShowMessage(S);
   s := '';
  end;
  s := s + f1.AsString;
  id := f2.AsInteger;
  cmp_QueryByField_.Next;
end;
ShowMessage(S);

Проблема в следующем, если результат запроса содержит порядка 3000 записей (строка будет состоять из порядка 2900 id' шников, разделенных запятыми) строка возвращается пустая (s = ''). Проверял длину возвращаемой строку - так она 0 не равна. Почему? Как исправить?

[Serge_Bliznykov]

вроде всё нормально..

строка возвращается пустая (s = '').

а куда строка возращается пустая? не DLL ли? или через ActiveX/COM? (это не межпрограммная передача данных?)

Для отладки сделайте просто примерчик вида:

var s : AnsiString;
  i : integer;
begin
  s := '';
  for i:=1 to 10000 do
    s := s+ IntToStr(i)+',';
  ShowMessage(s);

Так же особо обрати внимание и проверьте
как описана переменная S (: string, :ShortString, :AnsiString)
выполните

ShowMessage(IntToStr(sizeOf(s)))

(для AnsiString SizeOf вернёт 4 (т.к. это указатель), а для ShortString - размер будет 256...

[FaTaL]

Если обьявить s : WideString то должно быть нормально.

[Пепел Феникса]

Сообщение от FaTaL

Если обьявить s : WideString то должно быть нормально.

ты тысячу раз не прав!
WideString это строка, один символ которой занимает 2 байта
простого String'а вполне хватит

просто нужно учитывать как происходит в программе передача строк и все