TList떄문에 하루종일 머리 싸매고 뒹굴고 있슴돠.. 고수님덜

좀 도와 주세염~ ㅜ_ㅡ

다름이 아니라.. 제가 일단 listview에 있는 내용을 메모리에 TList에 저장을

시킨후에 그 저장되 있는것중 특정값을 가진 소스에선 id이 'dfdf'인

값을 지닌 레코드(?)의 name과 pass 값을 가져오고 싶습니다.

그래서 이 값들을 두번째 리스트뷰에 출력을 하고자 합니다.

그래서 버튼을 만들어서 해보았지만.. 계속 에러만 발생합니다.

도저히 뭔지 모르겠네염.. 좀 알려주세요..

procedure TForm1.Button2Click(Sender: TObject); 에 검색 해서 출력하는

부분을 같이 넣으면 되는데 왜 프로시저가 달라지면 안되는걸까욤?

좀 알려주세요~~~ ㅜ_ㅡ




unit TListfrm;

interface

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

type
  PMyList = ^AList;
  AList = record
    id : string;
    pass : string;
    name : string;
  end;

  TForm1 = class(TForm)
    ListView1: TListView;
    ListView2: TListView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    MyList : TList;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
  ARecord : PMyList;
  i,j : integer;
  listitem : Tlistitem;
begin

  for i := 0 to listview1.Items.Count-1 do
  begin
    New(ARecord);
    ARecord^.id := listview1.Items.Item[i].Caption;
    ARecord^.pass := listview1.Items.Item[i].SubItems.Strings[0];
    ARecord^.name := listview1.Items.Item[i].SubItems.Strings[1];
    MyList.Add(ARecord);
  end;



end;

procedure TForm1.Button1Click(Sender: TObject);
var
  j : integer;
  ARecord : PMyList;
  listitem : Tlistitem;
begin
  for j := 0 to MyList.Count-1 do
  begin
    ARecord := MyList.Items[j];
    listitem := listview2.Items.Add;
    listitem.Caption := ARecord.id;
    listitem.SubItems.Add(ARecord.pass);
    listitem.SubItems.Add(ARecord.name);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  j : integer;
  ARecord : PMyList;
begin
{ Cleanup: must free the list items as well as the list }
  for j := 0 to MyList.Count-1 do
  begin
    ARecord := MyList.Items[j];
    Dispose(ARecord);
  end;
  MyList.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyList := TList.Create;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  ARecord : PMyList;
  listitem : TListitem;
begin

  showmessage(inttostr(mylist.indexof(ARecord)));

  ARecord^.id := 'dfdf';
  MyList.IndexOf(ARecord); // 여기가 문제인듯.. 함돠.. ㅜ_ㅡ

  listitem := listview2.Items.Add;
  listitem.Caption := ARecord.id;
  listitem.SubItems.Add(ARecord.pass);
  listitem.SubItems.Add(ARecord.name);
end;

end.