zugriff auf die daten

[karim2008]

unit analyserMW;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus,
engine, faults, StdCtrls, ExtCtrls, ComCtrls, ToolWin;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
SetFileBase1: TMenuItem;
Colors1: TMenuItem;
Analyse1: TMenuItem;
Panel1: TPanel;
ListBox1: TListBox;
Label1: TLabel;
Panel2: TPanel;
ListBox2: TListBox;
Label2: TLabel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
ListBox3: TListBox;
StatusBar1: TStatusBar;
PaintBox1: TPaintBox;
Label3: TLabel;
Panel7: TPanel;
PaintBox2: TPaintBox;
procedure SetFileBase1Click(Sender: TObject);
procedure Colors1Click(Sender: TObject);
procedure Analyse1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure PaintBox2Paint(Sender: TObject);
private
{ Private declarations }
dhh, dhc: integer;
hindex: array[0..6] of byte;
cfn: string;
procedure readfile(s: string);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses fileselector;

{$R *.dfm}

procedure TForm1.SetFileBase1Click(Sender: TObject);
begin
if filelist.showmodal = mrok then begin;
end;
end;

procedure TForm1.Colors1Click(Sender: TObject);
begin
if colorcode.showmodal= mrok then begin;
end;
end;

procedure tform1.readfile;
var f: textfile; st: string; c: char;
begin;
assignfile(f,s);

reset(f);
while not eof(f) do begin;

readln(f,st);
ps.parseline(st);
end;
closefile(f);
end;

procedure TForm1.Analyse1Click(Sender: TObject);
var i,n:integer; s: string;
begin
n:= filelist.nfiles;
ps.reset;
setlength(operations, n);
filenumber:=0;
if n>0 then for i:=0 to n-1 do begin;
if filelist.isfile(i,s) then begin;
statusbar1.Panels[0].Text:=extractfilename(s);
statusbar1.repaint;
cfn:=s;
readfile(s);
operations[filenumber]:=chip[0].nfl;
inc(filenumber);
statusbar1.Panels[1].Text:=ps.device;
statusbar1.repaint;
end else begin; {its a comment}

end;
end;
listbox1.clear;
for i:=0 to 255 do begin;
if i=52 then begin;
s:='q';
end;
chip[i].countfaults;
with chip[i] do begin;
if (nfaults+ npersistantfaults = 0) then listbox1.items.add(format('%3d '+#9+'%6d',[i, nfaults + npersistantfaults]))
else listbox1.items.add(format('%3d '+#9+'%6d'+#9+' (%d)',[i, nfaults + npersistantfaults, firstfile]))
end;
end;
die messwerte die im Listbox1 raus kommen habe ich auf den kein zugriff!ich muss im programm was andern damit ich die zugriff auf die daten kriege!wie soll ich das machen?gibt es eine methode um die daten die ja im listbox.1 erscheinen kopieren kann!?oder kann man eine schleife schreiben so dass die messwerte eingreifbar sind!zum beispiel durch die änderung von der letzter schleife durch array??wenn ja wie geht das?
wäre super wenn jemand mir helfen kann!!