ListView геморрой с сохранением в .txt

@HA3AP93 · Регистрация: 27.12.2013

Author24 — интернет-сервис помощи студентам

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

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

Delphi

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;

@krapotkin · 31.07.2015, 08:12

для начала, писать в методе класса TFrom1 обращение к экземпляру этого класса form1 - это ошибка
во вторых, приведенного фрагмента недостаточно, т.к. в нем используются неведомые глобальные переменные
никто не знает, где находится Form4 и почему она уже создана хотя до момента показа явно никому не нужна

@Cyborg Drone · 31.07.2015, 10:00

Не по теме:

HA3AP93, ссылки на файлопомойки запрещены. Всё грузите на форум.

@HA3AP93 · 31.07.2015, 16:19 **[ТС]**

проблема не решена

@krapotkin · 31.07.2015, 19:33

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

проблема не решена

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

приведенного фрагмента недостаточно

может, поэтому?

@HA3AP93 · 31.07.2015, 20:28 **[ТС]**

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

Delphi

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; в первом юните

@krapotkin · 31.07.2015, 22:58

ну так я и говорю, никто не видит, где создается Form4, к которой ты обращаешься
судя по ошибке - нигде

@krapotkin 5774 / 4518 / 1429 Регистрация: 14.04.2014 Сообщений: 20,136 Записей в блоге: 20
	31.07.2015, 08:12	2
	для начала, писать в методе класса TFrom1 обращение к экземпляру этого класса form1 - это ошибка во вторых, приведенного фрагмента недостаточно, т.к. в нем используются неведомые глобальные переменные никто не знает, где находится Form4 и почему она уже создана хотя до момента показа явно никому не нужна 0

@Cyborg Drone
	31.07.2015, 10:00 #3
	Не по теме: HA3AP93, ссылки на файлопомойки запрещены. Всё грузите на форум. 0

@HA3AP93 1 / 1 / 0 Регистрация: 27.12.2013 Сообщений: 146
	31.07.2015, 16:19 [ТС]	4
	проблема не решена 0

@krapotkin 5774 / 4518 / 1429 Регистрация: 14.04.2014 Сообщений: 20,136 Записей в блоге: 20
	31.07.2015, 19:33	5
	Сообщение от HA3AP93 проблема не решена Сообщение от krapotkin приведенного фрагмента недостаточно может, поэтому? 0

@krapotkin 5774 / 4518 / 1429 Регистрация: 14.04.2014 Сообщений: 20,136 Записей в блоге: 20
	31.07.2015, 22:58	7
	ну так я и говорю, никто не видит, где создается Form4, к которой ты обращаешься судя по ошибке - нигде 0

Опции темы