TMemoryStream

[Volkogriz]

Доброе время суток!
Помогите вывести MemoryStream в Memo1 не выходит ни как(

PHP код:

var
  password: string;

function TForm1.chislo: integer;
var
 i:integer;
begin
 for i:=0 to Length(password) do
  result:=result+Ord(password[i])+17;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 d:byte;
 w,i:integer;
 ms,msk: TMemoryStream;
 MemoryStream, SecStream:TMemoryStream;
 len: integer;
 begin
MemoryStream:=TMemoryStream.Create;
begin
 password:=Trim('djcf78nf0a9sl34');
 ms:=TMemoryStream.Create;
 msk:=TMemoryStream.Create;
 ms.SetSize(ms.Size);
 msk.SetSize(msk.Size);
 ms.LoadFromFile('coded_1.txt');
 for i:=0 to ms.Size-1 do
  begin
   ms.Position:=i;
   msk.Position:=i;
   ms.Read(d,1);
   d:=d-((i*85)-i+chislo+28*i+(2*i+5-i-1));
   msk.Write(d,1);
   end;
Memo1.Lines.LoadFromStream(msk);
ms.Free;
msk.Free;
end;
end; 


С уважением,
Volkogriz!

[Аватар]

1. MemoryStream - для чего создается и и не уничтожается?
2. ms.SetSize(ms.Size); и msk.SetSize(msk.Size); зачем?
3. Перед циклом вставьте ms.Position:=0; и в цикле ms.Position:=i; и msk.Position:=i; не нужны
4. Уверены, что после преобразования будут отображаемые символы и значение d не вывалится за пределы Byte?
5. Перед Memo1.Lines.LoadFromStream(msk); вставьте msk.Position:=0;

[Slym]

function chislo(const Str:string): integer;
var 
 i:integer; 
begin 
 for i:=1 to Length(Str) do
  result:=result+Ord(Str[i])+17;
end;

procedure TForm1.FormCreate(Sender: TObject); 
var 
  Input:TFileStream;
  Output:TMemoryStream;
  d:byte;
  i,ch:integer;
begin
  ch:=chislo(Trim('djcf78nf0a9sl34'));
  Output:=TMemoryStream.Create;
  try
    Input:=TFileStream.Create('coded_1.txt',fmOpenRead);
    try
      i:=0;
      while Input.Read(d,SizeOf(d))>0 do
      begin
        d:=d-((i*85)-i+ch+28*i+(2*i+5-i-1));
        Output.Write(d,1);
        inc(i);
      end;
    finally
      Input.Free;
    end;
    Output.Position:=0;
    Memo1.Lines.LoadFromStream(Output);
  finally
    Output.Free;
  end;
end;