OOD
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ThisISHowIPutFilesIn(Sender: TObject);
procedure AddToStream(Source , Dest : TStream);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.ThisISHowIPutFilesIn ;
var
ABigFileStream, SomeSmallFiles : TMemoryStream ;
begin
ABigFileStream := TMemoryStream.Create ;
try
SomeSmallFiles := TMemoryStream.Create ;
try
SomeSmallFiles.LoadFromFile('C:\SomeSmalFile1.txt');
AddToStream(SomeSmallFiles,ABigFileStream);
SomeSmallFiles.LoadFromFile('C:\SomeSmalFile2.txt');
AddToStream(SomeSmallFiles,ABigFileStream);
// enz
finally
SomeSmallFiles.Free ;
end;
ABigFileStream.SaveToFile('C:\MrBig.DDD')
finally
ABigFileStream.free ;
end;
end;
Procedure TForm1.AddToStream ( Source , Dest : TStream );
var
Size : Integer ;
begin
Source.position := 0 ;
Size := Source.Size ;
Dest.Write(Size,SizeOf(Integer));
Dest.CopyFrom(Source,Source.size);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.ThisISHowIPutFilesIn();
end;
end.
|
Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 09:11 17-12-2008 | Исправлено: OOD, 09:12 17-12-2008 |
|
