ListView проблема с сохранением в .txt

[FleXik]

Вобщем изначально на первой форме код работал отлично и не было никаких проблем, теперь добавил новую форму и код начал ругаться и эррорить

Вобщем вот готовый рабочий код сохранения:

procedure TForm1.sListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  Datas:TStringList;
  i:integer;
begin
  Datas:=TStringList.Create;

    if (Form1.sListView1.Items.Count>0) and (Form1.sSaveDialog1.Execute) then
    begin

      if Column.Index=0 then
      begin

          for i:=0 to Form1.sListView1.Items.Count-1 do
          begin
            Datas.Add(Form1.sListView1.Items[i].Caption);
          end;

        Datas.SaveToFile(Form1.sSaveDialog1.FileName);
      end
      else
      if Column.Index>0 then
      begin

          for i:=0 to Form1.sListView1.Items.Count-1 do
          begin
            Datas.Add(Form1.sListView1.Items[i].SubItems[Column.Index-1]);
          end;

        Datas.SaveToFile(Form1.sSaveDialog1.FileName);
      end;

    end;

  Datas.Free;
end;

нооооооо, мне пришлось добавить новую форму и код стал таким:
т.е при клике на название колонки - появляется Form4

procedure TForm1.sListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  Form4.ShowModal;
end;

соответственно весь код сохранения ListView в .txt перенес на кнопку "ОК" (смотрите скриншот выше) которая находится на Form4, Form4 после удачного сохранения нужно закрывать, отошел от темы...

сделал так как выше - Delphi начала ругаться на Column.Index=0 и Column.Index>0 и Column.Index-1, решил срукожопить и прописал глобальную переменную Column:TListColumn; в первом юните - вроде проканало, решил протестировать и появилась новая проблема (скриншот ниже):

после нажатия "ОК" в окне ошибки мне красным выделяет end; после Form4.ShowModal;

[Krasiosoft]

Сообщение от FleXik

решил срукожопить

По сути, Form4 должна вернуть нужные параметры сохранения, а не выполнять само сохранение. Так почему же не сделать в классе Form4 функцию, которая внутри будет вызывать ShowModal, а после возвращать нужные параметры?

Но ошибка, думаю, не из-за этого. Поставьте бряк на начало функции, которая обрабатывает нажатие "ОК", и в отладчике пошагово пройдитесь, чтоб посмотреть на какой строчке появляется эта ошибка.

[min@y™]

Воспользуйся, наконец, дебаггером! Юзать форум вместо дебаггера, по крайней мере, неприлично и является злоупотреблением.

И убери нах Form1 из тела метода!

[FleXik]

И убери нах Form1 из тела метода!

зачем и что такое тело метода?

[min@y™]

Иди туда.

что такое тело метода?

между begin и end.

[FleXik]

еще раз попробую описать проблему

с Form1 для сохранения данных из ListView вызывается Form4 (первый скриншот с верху, как выглядит Form4), а уже с Form4 выбирается нужный RadioButton и нажимается кнопка "ОК", после нажатия кнопки "ОК" должно открываться диалоговое окно SaveDialog1, после сохранения данных Form4 должна закрываться, сделал так как выше, перенес код на Unit4 (Form4) и выглядит это так:

procedure TForm4.sBitBtn1Click(Sender: TObject);
var
  Datas:TStringList;
  i:integer;
begin
  Datas:=TStringList.Create;

    if (Form1.sListView1.Items.Count>0) and (Form1.sSaveDialog1.Execute) then
    begin

      if Column.Index=0 then
      begin

          for i:=0 to Form1.sListView1.Items.Count-1 do
          begin
            Datas.Add(Form1.sListView1.Items[i].Caption);
          end;

        Datas.SaveToFile(Form1.sSaveDialog1.FileName);
      end
      else
      if Column.Index>0 then
      begin

          for i:=0 to Form1.sListView1.Items.Count-1 do
          begin
            Datas.Add(Form1.sListView1.Items[i].SubItems[Column.Index-1]);
          end;

        Datas.SaveToFile(Form1.sSaveDialog1.FileName);
      end;

    end;

  Datas.Free;
end;

но у меня почему-то эррорит на строке Form4.ShowModal; в первом юните

[Krasiosoft]

Повторю:

Сообщение от Krasiosoft

Поставьте бряк на начало функции, которая обрабатывает нажатие "ОК", и в отладчике пошагово пройдитесь, чтоб посмотреть на какой строчке появляется эта ошибка.

Проблема скорее всего в функции:

TForm4.sBitBtn1Click

а не при выходе из нее, как Вы это написали:

Сообщение от FleXik

эррорит на строке Form4.ShowModal; в первом юните

[min@y™]

на строке Form4.ShowModal

а код показываешь совсем не тот. это ж обработчик тыка кнопки sBitBtn.

[FleXik]

я же говорю что ругается на end; перед Form4.ShowModal;

[min@y™]

end; перед Form4.ShowModa

не вижу.