Delphi. Проверить, если файл с таким именем существует то задать новое случайное имя

[delfin07]

чето метка не пашет

procedure TForm4.Image1Click(Sender: TObject);
label l;
begin


if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
l:a:=random(1000000)+1;
 dbedit1.Text:='foto\'+inttostr(a)+'.jpg';

Может тут условие я не правильно задал/////// if fileexists('foto\'+inttostr(a)+'.jp g') then goto l;

end;

[Zer0]

а собственно как вы хотите?

[Вадим Мошев]

Может тут условие я не правильно задал/////// if fileexists('foto\'+inttostr(a)+'.jp g') then goto l;

Внимательно посмотрите сюда. Почему у вас расширение через пробел написано?

[Alex11223]

И не только расширение.

[delfin07]

К пробелам не придирайтесь тут все норм просто может када кидал сюда код сам не увидел пробелы или даже сам нажал пробел .А теперь о программе что я хочу
1.если файл с таким именем существует то пометке оно рандамом задает новое имя
но оно не задает новое имя я не знаю даже что исправить
if fileexists('foto\'+inttostr(a)+'.jp g') then goto l

[Valio]

Зачем метки?

While FileExists(Name) Do Name := ....;

[delfin07]

как применить Этот цик к моей программе

procedure TForm4.Image1Click(Sender: TObject);
label l;
begin

if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPic tureDialog1.FileName);
l:a:=random(1000000)+1;
dbedit1.Text:='foto\'+inttostr(a)+' .jpg';
if fileexists('foto\'+inttostr(a)+'.jp g') then goto l;

[Valio]

как применить Этот цик к моей программе

Ты разобрался что делает этот цикл?

[Serge_Bliznykov]

но оно не задает новое имя я не знаю даже что исправить

Давайте попробуем разобраться.
Вы через OpenDialog1 получаете имя файла.
Дальше грузите указанный файл в Image1

а вот дальше - НЕПОНЯТНО, что Вы хотите получить?!
Изменить имя существующего файла на диске? Переименовать? Скопировать?

l:a:=random(1000000)+1;
dbedit1.Text:='foto\'+inttostr(a)+' .jpg';
if fileexists('foto\'+inttostr(a)+'.jpg') then goto l;

тут Вы получаете какое-то случайное имя вида
foto\Число.jpg
с вероятностью 99.99% такого файла у Вас в папке нет, поэтому GOTO не отрабатывает.
И что дальше?!!!

(я уже не говорю, о том, что Вам правильно говорят, что GOTO - может быть заменён на цикл с условием!)

[delfin07]

Я сам понял в чем моя ошибка , я проверил работает ли fileexists
вот так как ты показал она не пашет <<fileexists('foto\'+inttostr(a)+'. jpg')>>
она тупо не находит Этого файла, а вот рабочий код
fileexists((ExtractFilePath(Applica tion.ExeName)+'foto\'+inttostr(a)+' .jpg'))
и по метке все нормально задает новые имена рандомом