n.caption

[romanzi]

Цель - сделать так,что бы адрес записывался в n11,если он пустой иначе в n21,но если и он не пустой,то в n31 (извин за плохое объяснение)

Короче у меня ошибки с n31 - либо выкидывает, либо в него ничего не записывает,записывая в n21.

procedure TForm1.Button1Click(Sender: TObject);

begin
if opendialog1.Execute then
 memo1.Lines.LoadFromFile(opendialog1.FileName);
 OpenDialog1.HistoryList.Insert (0, OpenDialog1.FileName);
 Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'HistoryList.ini');
  if n11.caption='' then
   begin
    n11.Caption:=opendialog1.HistoryList.CommaText;
    Ini.WriteString('Text','1',n11.Caption );
    ini.Free
  end
  else
   begin

    n21.Caption:=opendialog1.HistoryList.CommaText;
    Ini.WriteString('Text2','2',n21.Caption );
         ini.Free;
         if not (n21.Caption='') then
          n31.Caption:=opendialog1.HistoryList.CommaText;
    Ini.WriteString('Text3','3',n31.Caption );

[DenNik2006]

во-первых, я так понял, все деействия после OpenDialog.Execute, зависят от OpenDialog.FileName. а у тебя только этот код зависит от значения Execute

if opendialog1.Execute then
 memo1.Lines.LoadFromFile(opendialog1.FileName);

нужно весь код после if opendialog1.Execute then заключить в блок begin..end

это для начала, потом возможно появятся новые жуки )))

[romanzi]

Мне нужно справиться именно с n31...
Построить окончание кода так,что бы записывалось в n31.caption после того как записалось в 11 и 21....

[DenNik2006]

смотри сюда

procedure TForm1.Button1Click(Sender: TObject);

begin
if opendialog1.Execute then // если Execute будет равно false
 memo1.Lines.LoadFromFile(opendialog1.FileName);
         // то нижеидущий код все равно выполнится, а это
         // в данном случае логическая ошибка, поскольку FileName = ''
 OpenDialog1.HistoryList.Insert (0, OpenDialog1.FileName);
 Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'HistoryList.ini');
  if n11.caption='' then
   begin
    n11.Caption:=opendialog1.HistoryList.CommaText;
    Ini.WriteString('Text','1',n11.Caption );
    ini.Free
  end
  else
   begin

    n21.Caption:=opendialog1.HistoryList.CommaText;
    Ini.WriteString('Text2','2',n21.Caption );
         ini.Free;
         if not (n21.Caption='') then
          n31.Caption:=opendialog1.HistoryList.CommaText;
    Ini.WriteString('Text3','3',n31.Caption );