Устранить конфликт двух FilenameEdit

[Аватар]

Я же понятия не имею, что за компонент это. Возможно так, а возможно проверка физического существования файла. try ... except при загрузке файла. Он вообще-то в любом случае нужен, даже если файл существует

[FleXik]

как тогда try ... except расставить правильно?

procedure TForm1.sButton1Click(Sender: TObject);
var
  res:string;
  i:integer;
  T_Lines:TStringList;
begin
  T_Lines:=TStringList.Create;
  T_Lines.LoadFromFile(sFilenameEdit1.FileName);

    for i:=0 to T_Lines.Count-1 do
    begin
      res:=StringReplace(sRichEdit1.Lines.Text, '$NAME$', T_Lines[i], [rfReplaceAll, rfIgnoreCase]);
      sRichEdit2.Lines.Add(Trim(res));
    end;

  T_Lines.Free;
end;

[Аватар]

По простому так, по сложному ализировать причину ошибки

try
  T_Lines.LoadFromFile(sFilenameEdit1.FileName);
except
  ShowMessage('Вай-вай, ошибка чтения файла');  
  Exit;
end;

[FleXik]

говно-код не говно-код, тем не менее не получается сделать чтобы оба FileNameEdit работали вместе, в одиночку работают, вместе не хотят, если сильно наговнокодил - поправьте пожалуйста, спасибо.

var
  img, url:string;
  i, j:integer;
  fIMAGE, fURL:TStringList;
begin
  i:=0;
  sRichEdit2.Clear;

    if Pos('.txt', sFileNameEdit1.Text)<>0 then
    begin

      try
        fIMAGE:=TStringList.Create;
        fIMAGE.LoadFromFile(sFilenameEdit1.FileName);
      except
        Exit;
      end;

      while (i<fIMAGE.Count) do
      begin
        img:=StringReplace(sRichEdit1.Lines.Text, '$IMAGE$', fIMAGE[i], [rfReplaceAll, rfIgnoreCase]);
        sRichEdit2.Lines.Add(Trim(img));
        inc(i);
      end;

    end;

    if Pos('.txt', sFileNameEdit2.Text)<>0 then
    begin

      try
        fURL:=TStringList.Create;
        fURL.LoadFromFile(sFilenameEdit2.FileName);
      except
        Exit;
      end;

      while (i<fURL.Count) do
      begin
        url:=StringReplace(sRichEdit1.Lines.Text, '$URL$', fURL[i], [rfReplaceAll, rfIgnoreCase]);
        sRichEdit2.Lines.Add(Trim(url));
        inc(i);
      end;

    end;

fIMAGE.Clear;
fURL.Clear;

[FleXik]

и да, в программе указывается количество строк для генерирования, т.е в которые будут подставляться строки из тхт файлов, и если в файлах недостаточно строк (чем указано в программе) - цикл нужно повторять заново

[FleXik]

проблема решена, всем спасибо