Запись данных из Listbox в файл

[lordsyrius]

Здравствуйте. Очень нужна Ваша помощь. У меня есть программа:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Splitter1: TSplitter;
    ListBox2: TListBox;
    Panel1: TPanel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Button3: TButton;
    SaveDialog1: TSaveDialog;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ViewClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TFileRecord = record
    namemetod: string [25];
    nameclass: string [25];
    curatr: string [25];
end;

  TRecFile = file of TFileRecord;

var

f:  TRecFile;
  r:  TFileRecord;
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
Begin
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
End;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j: integer;
nameclass, namemetod, curatr, s: string;
begin
listbox2.clear;
curatr:=' ';
i:=0;
while trim(ListBox1.Items[i])<> 'implementation'do
begin
s:= trim(ListBox1.Items[i]);
        if (pos('= class', s)>0) and (pos(';', s)=0) then
        begin
        nameclass:= copy(s,1,pos(' ',s));
      inc(i);
   while trim(ListBox1.Items[i])<> 'end;'do
  begin
  s:= trim(ListBox1.Items[i]);
  if ((pos('procedure', s)>0) or (pos('function', s)>0)) and
   ((pos('virtual', s)=0)and (pos('dynamic', s)=0) and (pos('override', s)=0) and
    (pos('message', s)=0)) then
   begin  j:=pos(' ',s);  namemetod:='';
    while (s[j]<>'(') and (s[j]<>':') and (s[j]<>';') do
    begin namemetod:= namemetod+s[j]; inc(j); end;

    if curatr=' ' then curatr:= 'published';
    ListBox2.Items.add(namemetod + ' - ' + nameclass + ' - ' + curatr);
    end;
      if (pos('private',s)>0)  or
       (pos('protected',s)>0) or
       (pos('public',s)>0) or
       (pos('published',s)>0)
       then   curatr:=s;

   inc(i);
   end;
  end;
  inc(i);
 end;
end;

    procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
f: TRecFile;
r: TFIleRecord;
begin
if SaveDialog1.Execute then
  begin
  AssignFile(f, SaveDialog1.FileName);
  Rewrite(f);
  for i:=0 to ListBox2.Items.Count-1 do
    begin
    ///////////////////!!!!!!!!!!!!!!!!!!!
    r.namemetod:=Trim(ListBox2.Items.Names[i]);
 r.nameclass:=Trim(ListBox2.Items.Names[i]);
           r.curatr:=Trim(ListBox2.Items.Names[i]);
 /////////////////////!!!!!!!!!!!!!!!!!!!!!
    Write(f, r);
    end;
  CloseFile(f);
  end;  end;


procedure TForm1.ViewClick(Sender: TObject);
begin
with View do
begin
View:=TView.Create(Self);
if OpenDialog1.Execute then
  begin
  Caption:=ExtractFileName(OpenDialog1.FileName);
  Show;
  AssignFile(f, OpenDialog1.FileName);
  Reset(f);
    while not Eof(f) do
    begin
    Read(f, r);
    ListBox1.Items.Add(r.namemetod + ' - ' + r.nameclass + ' - ' + r.curatr);
    end;
  CloseFile(f);
  end
  else
  View.Free;
end;
end;

end.

Которая берет из pas-файла, который загружен в listbox1, имена всех статических методов; имена классов, к которым относятся методы; атрибуты доступа, в рамках которых находятся методы (privare, protected и т.д.) и заносит их в listbox2. Данные из listbox2 должны быть сохранены в структурированный файл, т.е. отдельно должны быть сохранены имя метода, имя класса и атрибут, а не одной записью, как хотелось бы. Для каждого имени атрибута запись должна быть следующей структуры: имя метода – класс - атрибут доступа.

Собственно в сохранении этих данных и загвоздка. Код, который в программе выводит пустоту...

Помогите, пожалуйста, разобраться...

[Stilet]

ListBox2.Items.Names[i])

Ты уверен что у тебя это возвращает то что нужно?
Может тебе нужно ListBox2.Items[i]...

имя метода, имя класса и атрибут

Поясни.

[lordsyrius]

вот именно, чтоя не совсем уверен...если ставлю ListBox2.Items[i], то выводится вся запись три раза, т.е., например, так: Button1Click - TForm1 - published - Button1Click - TForm1 - published - Button1Click - TForm1 - published, а должно быть так: Button1Click - TForm1 - published и всё.

[lordsyrius]

вопрос остается открытым...

[lordsyrius]

Люди, мне написали код:

Добавление метода:

  ...
  SetLength(KnownMethods, Length(KnownMethods) + 1);
  KnownMethods[High(KnownMethods)].namemetod := namemetod;
  KnownMethods[High(KnownMethods)].nameclass := nameclass; 
  KnownMethods[High(KnownMethods)].curatr := curatr;
  ListBox2.Items.add(namemetod + ' - ' + nameclass + ' - ' + curatr);
  ...

Сохранение в файл:

  ...
  FS := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);
  try
    FS.WriteBuffer(KnownMethods[0], Length(KnownMethods) * SizeOf(TFileRecord));
  finally
    FreeAndNil(FS);
  end;
  ...

Загрузка из файла:

  ...
  FS := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);
  try
    SetLength(KnownMethods, FS.Size div SizeOf(TFileRecord));
    FS.ReadBuffer(KnownMethods[0], Length(KnownMethods) * SizeOf(TFileRecord));
  finally
    FreeAndNil(FS);
  end;
  ...

Помогите, пожалуйста правильно его вставить в мою программу.

P.S. Там создается массив из записей

[lordsyrius]

Неужели никто не знает, как решить мою проблему!?

[evg_m]

procedure TForm1.Button2Click(Sender: TObject);
var
mrec: array of Tfilerecord;
len: integer;
.....
begin
len:=0;
.......
после строки (можно даже вместо нее)
ListBox2.Items.add(namemetod + ' - ' + nameclass + ' - ' + curatr);
добавляем следующие строки

begin
len:=len+1;
setlength(mrec,len);
mrec[len-1].namemethod:=namemetod;
mrec[len-1].nameclass:=nameclass;
mrec[len-1].curatr:=curatr;
end;

// запись в файл
for j:=0 to len-1 do
write(f,mrec[j]);

[lordsyrius]

Спасибо! Сейчас буду пробовать...

[lordsyrius]

А как связать переменные из Button2Click с переменными в Button3Click? А то сохраняется пустой файл.

[Neeter]

А вы засуньте эти переменные не в события, а в секцию private:

...
private
  {private declarations}
  perem1, perem2: integer;
  perem3: string;
...