[Virus191288]

Спасибо за подсказку на я уже все сделал. Вот пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132

unit Unit1;   interface   uses   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,   Menus;   type     { TForm1 }     TForm1 = class(TForm)     Button1: TButton;     Button3: TButton;     Memo1: TMemo;     Memo2: TMemo;     Memo3: TMemo;     Memo4: TMemo;     Memo5: TMemo;     Memo6: TMemo;     procedure Button1Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     AStream, BStream, CStream,ResultStream,newstream: TMemoryStream;     ArrStream: Array of TMemoryStream;     procedure DecompressStream(childstream:TMemoryStream;var ResStream:TMemoryStream; nl:Boolean = false);     procedure CompressStream(var childstream : array of TMemoryStream; const FText: Array of String; var  ResStream:TMemoryStream);     function StreamToString(Stream: TStream): String;     procedure StringToStream(const AString: string; var Stream: TMemoryStream);     procedure StringsToArray(const AArray : Array of String; var BArray : Array of String);     { private declarations }   public     { public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.lfm}   { TForm1 }   function TForm1.StreamToString(Stream: TStream): String; var    SL:TStringList; begin      SL:=TStringList.Create;      stream.Position := 0;      SL.LoadFromStream(stream);      result:=SL.Text;      SL.Free; end;   procedure TForm1.StringToStream(const AString: string; var Stream: TMemoryStream); begin   Stream.Write(AString[1], Length(AString)); end;       procedure TForm1.DecompressStream(childstream:TMemoryStream;var ResStream:TMemoryStream; nl:Boolean = false); var    outfile : TMemoryStream;   i,l,c : Integer;   s:string; begin   //restart   if nl then     childstream.Position := 0;    childstream.Read(l,SizeOf(l));       //read stream    ResStream := TMemoryStream.create;    //copy to new stream  ResStream.CopyFrom(childstream,l); end;   procedure TForm1.CompressStream(var childstream : array of TMemoryStream; const  FText: Array of String; var ResStream:TMemoryStream); var   i,DataSize : Integer;   s : String; begin     for i:= 0 to Length(childstream)-1 do begin         if text<>'' then begin          childstream[i]:=TMemoryStream.Create;          StringToStream(FText[i], childstream[i]);       end;            { размер стрима }     DataSize := childstream[i].Size;     ResStream.Write(DataSize,SizeOf(DataSize));           {упаковываем файл и сохраняем во временный файл}     ResStream.CopyFrom(childstream[i], 0);       childstream[i].Free;     end;     end;   procedure TForm1.StringsToArray(const AArray : Array of String; var BArray : Array of String); var I:Integer; begin  for i:=0 to Length(AArray)-1 do    BArray[i] :=AArray[i]; end;       procedure TForm1.Button1Click(Sender: TObject); begin   ResultStream:=TMemoryStream.Create;     SetLength(ArrStream,3);   CompressStream(ArrStream, [memo1.Text, memo2.Text, memo3.Text], ResultStream);   ResultStream.SaveToFile(ExtractFileDir(ParamStr(0))+'/11.srt');   Button3.Enabled:=true; end;   procedure TForm1.Button3Click(Sender: TObject); begin  DecompressStream(ResultStream,AStream,true);  memo4.text:=StreamToString(AStream);  DecompressStream(ResultStream,BStream,false);  memo5.text:=StreamToString(BStream);  DecompressStream(ResultStream,CStream,false);  memo6.text:=StreamToString(CStream); end;   end.

п.с. каждый раз узнаю что-то новое, например что в процедуру можно передать элементы в виде масива))
п.п.с. код сложный и скорее всего кривой