Ошибка 'Abstract Error' , Возникает при пересылке

Подскажите, плиз, в чем проблема. Вываливается "Абстрактная ошибка"...

procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         if (sr.Attr and faDirectory)<>0 then FileList.Add('+ папка '+SR.Name)
         else  if (sr.Attr and faHidden)<>0 then FileList.Add(' - файл '+SR.Name+' размер: '+inttostr(SR.Size)+'байт - скрытый')
         else  if (sr.Attr and faSysFile)<>0 then FileList.Add(' - файл '+SR.Name+' размер: '+inttostr(SR.Size)+'байт - системный')
         else  FileList.Add(' - файл '+SR.Name+' - '+inttostr(SR.Size));
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;
 
 
 
 
 
var
  subdirs: TStrings;
  separ: '#10';
 
if copy(sub_str,1,i-1)='dirlist' then
begin
  sub_str:=copy(s,i+3,length(s)-i+3); // здесь идет значение, например 'C:\'
  subdirs:= TStrings.Create;
  ListFileDir(sub_str, subdirs);
  subdirs.Insert(0,'dirlist'+separ);  // #10 - разделитель в строке
 
 memStr:=  TMemoryStream.Create;
 memStr.Position:=0;
 subdirs.SaveToStream(memStr);
 memStr.Position:=0;
 Socket.SendStream(memStr);  // здесь отправляется на клиент ...
 
end

... но почему то происходит ошибка 'Abstract Error' на стороне сервера.
думаю, что контент не подходит для отправки.... Либо как то не так отправлять надо...

Замените TStrings на TStringList.

var
subdirs: TStringList;
........................
subdirs:= TStringList.Create;
.................................
end

Цитата

... но почему то происходит ошибка 'Abstract Error' на стороне сервера.

.... дык..." TStrings contains abstract methods and should not be directly instantiated."(с)

Сообщение отредактировано: Тестировщица - 13.12.05, 05:38

Достаточно вот этой строчки: subdirs:= TStringList.Create;