Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TFileStream [D7, XP]

DmitriyR © (2009-04-01 15:11:00)
Есть код:
function my_edit( тут получаю для обработки поток F ):bool;
begin
....тут код обработки файла
F.Write(........)
end;

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

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

DmitriyR (2009-04-01 15:34:00) [1]
Поторопился снова накосячил :(
всем спасибо за помощь, работает:

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;

DmitriyR (2009-04-01 15:28:00) [2]
Упс сорри ступил :) Вот так заработало
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;

Немо (2009-04-01 15:27:00) [3]
my_edit(var F:tFileStream

DmitriyR (2009-04-01 15:23:00) [4]
Это то понятно, я немного не так спросил :(
Как в функции объявить его:
function my_edit( тут ):bool;

Сергей М. (2009-04-01 15:20:00) [5]
my_edit(F)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »