Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c