Цитата:
OpenDialog1.Filter := 'Только формат "png"|*.png';
OpenDialog1.InitialDir:=ExtractFilePath(ParamStr(0 ))+'\data\';
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
|
+К дополнению мне нужно сделать так что бы в строке Edit1.text появилась название картинки. В идеале должно выглядеть так:
Цитата:
OpenDialog1.Filter := 'Только формат "png"|*.png';
OpenDialog1.InitialDir:=ExtractFilePath(ParamStr(0 ))+'\data\';
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Edit1.Text:=Image1.Name;
|
По идеи мне нужно вырезать путь оставляя только имя файла. Но как это сделать?