TFileStream

← →
DmitriyR (2009-04-01 15:11) [0]

Есть код:
function my_edit( тут получаю для обработки поток F ):bool;
begin
....тут код обработки файла
F.Write(........)
end;

var
F: TFileStream;
begin
F := TFileStream.create(filename, fmCreate);
my_edit( вот тут надо передать для обработки поток F );
F.Free;
end;

Как реализовать передачу потока из основного кода в функцию?

← →
Сергей М. © (2009-04-01 15:20) [1]

my_edit(F)

← →
DmitriyR (2009-04-01 15:23) [2]

Это то понятно, я немного не так спросил :(
Как в функции объявить его:
function my_edit( тут ):bool;

← →
Немо © (2009-04-01 15:27) [3]

my_edit(var F:tFileStream

← →
DmitriyR (2009-04-01 15:28) [4]

Упс сорри ступил :) Вот так заработало
var
F: TFileStream;

function my_edit(F:TFileStream):bool;
begin
....тут код обработки файла
F.Write(........)
end;

begin
F := TFileStream.create(filename, fmCreate);
my_edit(F);
F.Free;
end;

← →
DmitriyR (2009-04-01 15:34) [5]

Поторопился снова накосячил :(
всем спасибо за помощь, работает:

function my_edit(F:TFileStream):bool;
begin
....тут код обработки файла
F.Write(........)
end;

var
F: TFileStream;
begin
F := TFileStream.create(filename, fmCreate);
my_edit(F);
F.Free;
end;

TFileStream Найти похожие ветки