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

[Stilet]

Сделай некое свойство для формы, куда запоминай индекс кликнутой колонки. А в клике по кнопке используй в проверке этой свойство.

[Krasiosoft]

Я тоже это писал, но видимо без примера тут не обойтись:

Unit1.pas - основная форма

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    btnShowForm2: TButton;
    procedure btnShowForm2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnShowForm2Click(Sender: TObject);
var currInfo: TForm2Info;
begin

  Form2.ShowModal;

  currInfo:=Form2.GetInfo;
  if currInfo.status then ShowMessage(IntToStr(currInfo.savetype))
  else ShowMessage('Status = false');

end;

end.

Unit2.pas - вторая форма

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TForm2Info = Record
    status: boolean;
    savetype: integer;
  end;

  TForm2 = class(TForm)
    ComboBox1: TComboBox;
    btnOK: TButton;
    btnCANCEL: TButton;
    procedure btnOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnCANCELClick(Sender: TObject);
  private
    currInfo: TForm2Info;
    { Private declarations }
  public
    function GetInfo : TForm2Info;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btnOKClick(Sender: TObject);
begin
  currInfo.status:=true;
  currInfo.savetype:=ComboBox1.ItemIndex;
  close;
end;

function TForm2.GetInfo : TForm2Info;
begin
  result:=currInfo;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  currInfo.status:=false;
end;

procedure TForm2.btnCANCELClick(Sender: TObject);
begin
  close;
end;

end.

И прикрепил к сообщению сам проект на Delphi 7.

Но, то, что была ошибка с чтением адреса 00000004, это не с этим связанно. Но так просто будет корректнее, чтоб с формы 4 не нужно было ничего трогать на основной форме.

[JUDAS]

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

Delphi 7

нет у делфи 7 древовидной разграфки кода

Господа, там у автора белеберда полнейшая. Куча перекрёстных ссылок на формы и перекрёсных вызовов по ссылкам.
Думаю что проект заработает если его кардинально переписать, по крайней ере корректно спроектировать взаимодействие между формами.
Вот где нужно рыть.

[Krasiosoft]

Согласен, лучше все корректно переписать, но в данном случае ж нужно просто добавить форму. А когда вызывается форма 4, то она никак не должна зависеть от того, что там до этого было написано, т.е. проблема вроде как в форме 4.

[JUDAS]

Krasiosoft, там по ходу до вызова формы 4, она уже активна причём через форму 3 которая вызывается с формы 1.
Говорю же очень запутаны ссылки и взаимные вызывы

[FleXik]

там по ходу до вызова формы 4, она уже активна

да.........

[Krasiosoft]

Но форма 4 не зависит же от других форм, верно? С помощью нее выбирается ж только формат сохранения, или я что-то не понимаю?

[FleXik]

Но форма 4 не зависит же от других форм, верно? С помощью нее выбирается ж только формат сохранения, или я что-то не понимаю?

да, и все.................

но кнопка сохранения (кнопка "ОК") лежит именно на Form4, а ListView на Form1

[Krasiosoft]

Попробуйте сделать, как я описал в #52. Тогда все вернется, как и было до создания 4 формы. Будет просто функция, которая вернет нужные параметры для сохранения. Это более правильный подход, но боюсь, что проблема не с этим связана.

[FleXik]

Krasiosoft мне нужен пример с ListView а не с ComboBox, у ListView нет ItemIndex и мне нужен индекс колонки а не айтема.