VPF::TMemoryStream в качестве параметра функции

mardoc

Дата 24.2.2011, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 24.2.2011

Репутация: нет
Всего: нет

Добрый день.
Помогите пожалуйста разобраться с правильной передачей TMemoryStream в качестве параметра в подпрограмму.

приведу не рабочий код

Код


... заголовок модуля
Type TStrArr=array of string;
......
{читаем один параметр из потока}
function ReadOnePar( Dstream:TMemoryStream; var Line:string):boolean;
var buf:Byte;
     size:Int64;
begin 
  Result:=False;
  Line:='';
  size:=Dstream.Size;
  while Dstream.Read(buf,1)<size do
  begin
   if buf=13 then  Exit; //перевод строки
   if buf=58 then  Break;//символ ":"
   Line:=Line+chr(buf);
  end;
  Result:=True;
end;

{читаем все параметры из потока}
function ReadAllPar( Rstream:TMemoryStream; const Aarr:TstrArr):boolean;
var i:integer;
      str:string;
begin 
  Result:=False;
  Setlength(Aarr,0);
  i:=0;
  while ReadOnePar(Rstream,str) do
  begin
   SetLength(Aarr,i+1);
   Aarr[i]:=str;
   i:=i+1;
  end;
  Result:=True;
end;

procedure Foo;
var stream:TMemoryStream;
      ArrParam:TStrArr;
      buf:byte;
begin
 stream:=TMemoryStream.create;
  try
     stream.LoadFromFile("1.txt");
     stream.position:=0;
     ReadAllPar(stream,ArrParam);
     stream.position:=0; // <- вот тут access violation  (подозреваю что указатель  теряется)
  finally
    FreeAndNil(stream)
  end;
end;

Код работает только когда в ReadOnePar ставлю const перед Dstream:TMemoryStream, но при добавлении еще одной вложенной функции const уже не помогает :(
Вопрос: Как правильно передать TMemoryStream в подпрограмму ?

CodeMonkey

Дата 24.2.2011, 19:09 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Код


function ReadAllPar( Rstream:TMemoryStream; const Aarr:TstrArr):boolean;
...
  Setlength(Aarr,0);

Что это за бред? Реальный код приведи.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »