Проблемы с opendialog

[laborant]

вот какая проблема.
вообщем я использую opendialog (компонент). я к нему обращаюсь , выбираю нужные мне файлы, закрываю его. Но после окончания работы с ним я не могу загрузить картинку в компонент image методом loadfromfile. пишет файл не найден. если же попробовать загрузить картинку до работы с диалогом то все нормально работает
объясните что это может быть.

[Alex21]

Как пробуем? Код в студию.

[ZhekON]

если У опендиалог у тебя опцыя стоит "розрешыть выбор нескольких файлов" в положэнии ДА, то нужно использовать Files-масив, в ином жэ случае просто Filename

[laborant]

вот код

procedure TForm1.Button1Click(Sender: TObject);
var a:textfile; text,fname:string;i:integer;
begin
assignfile(a,'1.txt');
rewrite(a);
opendialog1.Execute;
for i:=1 to opendialog1.Files.Count do begin
text:=opendialog1.Files.Strings[i-1];
writeln(a,text); сюда я записываю полный путь
while text[(length(text))]<>('\') do begin
fname:=copy(text,length(text),1)+fn ame;
delete(text,length(text),1);
end;
listbox1.Items.Add(fname); сюда я записываю только имя файла

end;
closefile(a);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('1.bmp' ); вот это не работает.
end;

[SERG1980]

procedure TForm1.Button3Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('1.bmp' ); вот это не работает.
end;[/QUOTE]
данная строка будет работать если файл находится тамже где и exe файл твоей проги
Попробуй так

procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenPictureDialog1.Execute then//если открываешь только картинки то лучше используй OpenPictureDialog
image1.Picture.LoadFromFile(form1.O penPictureDialog1.FileName);
end;

[mutabor]

не работает потому что OpenDialog изменяет текущую директорию, передавай в функцию LoadFromFile полный путь -
LoadFromFile(ExtractFilePath(Applic ation.ExeName)+'нужный файл');

[laborant]

Спасибо помогло. Я так и думал что opendialog оказывает какое-то влияние, но из-за недостатка опыта программирования не понял какое именно.