Hogy tudok Pascal-lal egy olyan progit írni amit, ha elindítok lemásolja magát ugyanabba a mappába amibe van 100-szor? (bővebben lent)

Lemásolja magát? Az miért jó?

Beolvasod egy tömbbe, majd kiírod 100-szor.

Használj az íráshoz/olvasáshoz egy legalább a tömb 5%-át átfogó puffer tömböt. (mondjuk egy ilyen program kb. 30-40 kb-ot foglal, egy 4kb-os puffer bőven elég.)

Vagy pedig egy TFileStreamet és TMemoryStream-et használsz... ( [link] )

Első vagyok. Ez Pascalban van csak le kell írd.

uses classes;

var m:TMemoryStream;

f:TBufStream;

begin

m := TMemoryStream.Create;

f := TBufStream.Init( paramstr(0) , stOpenRead , 64000 );

m.CopyFrom(f, s.size);

m.position := 0;

f.Done;

for i:=1 to 100 do

begin

m.Position := 0;

f := TBufStream.Init('masolat '+inttostr(i)+' '+ paramstr(0) , stOpenWrite , 64000 );

f.copyfrom(m,m.size);

f.done;

end;

end;

end.

A hibákat javítsd ki, legalább annyit csinálj :|