Ошибка при OpenDialog.Execute

[ymka2]

Всем доброго времени суток! помогите разобраться с кодом.
Нужно чтобы по нажатию кнопки вызывалась функция,которая создает таблицу на сервере и записывает туда данные из блокнота.
Если написать в обычной procedure TForm1.Button2Click(Sender: TObject),то все работает,а если написать функцию и вызвать при нажатии кнопки, выдает ошибку:
"Project Project1.exe raised exception class EAccessViolation with message 'Access violation at addres 004AAC3D in module 'Project1.exe'. Read of address 00000003'. Process stopeed.Use Step or Run to continue."

Прога вылетает вот в этом месте:
if opendialog1.Execute then
begin
AssignFile(f, Opendialog1.FileName);
Reset(f);
Указывал и в Var функции и в type unita и вместе(OpenDialog1: TOpenDialog),все равно никак.Подскажите,как и где нужно описать opendialog?

[MaxNik2009]

Сообщение от ymka2

Прога вылетает вот в этом месте:
if opendialog1.Execute then
begin
AssignFile(f, Opendialog1.FileName);
Reset(f);
Указывал и в Var функции и в type unita и вместе(OpenDialog1: TOpenDialog),все равно никак.Подскажите,как и где нужно описать opendialog?

Попробуйте вместо Reset(f); использовать reWrite(f);

[Roof]

Вот глянь:

[ymka2]

попробывал,тоже самое. Проблема именно в opendialog, он не инициализирован

Roof,это то что надо.А можно при нажатии кнопки вызывать функцию,которая делает тоже самое? если можешь выложи саму функцию

[Roof]

Так у меня вроде все по нажатию кнопки
Как понять - по нажатию конопки тоже самое?
Типа функцию отдельно написать?

[ymka2]

Вот так примерно надо:

function od(var f:textfile):string ;
var   str: string; opendialog1:Topendialog;
begin
 if OpenDialog1.Execute then begin
   AssignFile(f, OpenDialog1.FileName);
   Reset(f);
   Readln(f, str);
   ShowMessage('1. line of textfile: ' + str);
   Closefile(f);
end;  end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 od(f);
 end;

Но если нажать на кнопку,то вылезает ошибка.

[ОДИНОЧЕСТВО В СЕТИ]

function od(var f:textfile):string ;

засунь описание функции в раздел где описана

procedure Button1Click(Sender: TObject);

и исправь

function tform1.od(var f:textfile):string ;
var str: string;{а вот это тут не надо opendialog1:Topendialog;}
begin
if OpenDialog1.Execute then begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
Readln(f, str);
ShowMessage('1. line of textfile: ' + str);
Closefile(f);
end; end;

[Roof]

procedure My_Open(fname: string);
var
 f: TextFile;
 str: string;
begin
   AssignFile(f, fname);
   Reset(f);
   Readln(f, str);
   ShowMessage('1. line of textfile: ' + str);
   Closefile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then begin
   My_Open(OpenDialog1.FileName);
 end;
end;

[Utkin]

Умка, OpenDialog это класс. Когда ты кидаешь его экземпляр на форму, то форма это делает без тебя. Но Дельфи не имеет модуля телепатии, поэтому когда ты пишешь свою примочку, то OpenDialog нужно инициализировать самостоятельно . Напиши сразу после begin

OpenDialog1.Create(Form1)

А перед последним end в той же функции

OpenDialog1.Free;

[ymka2]

Все получилосьВсем огромное спасибо!!!!