loadfile aus TMemoryStream

[busybyte]

Warum denn so kompliziert und langsam (stroint/besser noch strtointdef)über 3 Stringlisten?
Willst Du mit Pointer arbeiten?Das wäre natürlich high-end,
vorerst, ist meiner Meinung nach ein Record am übersichtlichsten.

Delphi-Quellcode:

Type
TMeineStreamDaten=Record
//z.B.
MSDDateiname:String;
MSDSize,Position:integer;
//MeinStream:TStream;
.
.
.
end;

Var  MeineStreamDaten:Array of TMeineStreamDaten;
cnt1:integer;



Procedure CreateMyStreamData(StreamDatenAnzahl_);
var cnt1:integer;
begin
Setlength(MeineStreamDaten,StreamDatenAnzahl_);
For cnt1:=0 to Length(MeineStreamDaten)-1 do

 with MeineStreamDaten[cnt1] do
  begin
  MsdSize:=Sizeofirgendwas; 
  MSDDateiname:='Test'+inttostr(cnt1);
  . 
  .
  .
  end;

.
.
.