messwerte in text format

[karim2008]

Delphi-Quellcode:

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;
  listbox3.clear;
  ps.hlist(listbox3.Items, hindex);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var ch: integer; f: tfault;
begin
  listbox2.clear;
  label2.Caption:='';
  ch:=listbox1.itemindex;
  if ch >=0 then begin;
    label2.Caption:=format('Chip %d',[ch]);
    for f:=ft_tobulkerase to ft_badsignature do begin;
      listbox2.items.add(format('%6d  '+#9+faultdes[f], [chip[ch].fcount[f]]));
    end;
  end;
  listbox3.ItemIndex:=-1;
  paintbox2.Invalidate;
end;

procedure TForm1.ListBox3Click(Sender: TObject);
var c,h: integer;
begin
  c:=listbox1.ItemIndex;
  if c>=0 then begin;
    h:=listbox3.ItemIndex;
    if h>=0 then begin;
      h:=hindex[h];
      dhh:=h; dhc:=c;
      paintbox1.Invalidate;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  dhh:=-1; dhc:=-1;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  ps.drawhist(dhh, dhc, paintbox1);
end;

procedure TForm1.PaintBox2Paint(Sender: TObject);
var cn: integer;
begin
  if filenumber<1 then exit else begin;
    cn:= listbox1.ItemIndex;
    if cn<0 then exit;
    ps.drawepf(cn,paintbox2);
  end;
end;

end.

So leute zu erst bedanke ich mich für die Scharfe Kritik!Das Programm hab ich nicht geschrieben!sondern ist ja von einem Dr. geschrieben und es funktioniert!Ob er gut Englisch oder schlecht schreiben kann ist mir wirklich egal!Kurz zu diesem programm: es ist bei analyses.exe und was raus kommt sind ja listbox mit messerte!Die messerte die im listbox.1

Delphi-Quellcode:

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]))

hab ich dadrauf kein zugriff ich meine das ich die messwerte nicht auf einmal kopieren kann die daten die in listbox.1 sind schreib geschützt!bin kein delphi programmierer hab mich mit der Literatur beschäftig und bis jetzt keine lösung gefunden!
Mein ziel ist die daten die im lisbox1 stehen in text format zu konvertieren damit kann ich die messwerte auf einmal kopieren ohne die einzel zu übertragen( die daten werden in eine excel tabelle übertragen)
Hat jemand eine Idee????Vielleicht kann man eine schleife oder was im programm ändern so dass die messwerte direkt in text format gegeben werden.
lg Karim

[edit=Jelly]Delphi Tags gesetzt... Nächstes mal bitte dran denken Mfg, Jelly[/edit]

[Bernhard Geyer]

Formatier mal deinen Quellcode. So ist ja gar nix zu erkennen.

[Sergej]

Hey, könntest du mal Text und Sourcecode trennen?


P.S Mittels den [delphi] Tags kannst du deinen Quellcode highlighten

[DeddyH]

Und vor allem nicht 4 Threads mit demselben Problem eröffnen?

[karim2008]

wie soll ich das machen?

[Sergej]

Zitat von karim2008:

wie soll ich das machen?

Was machen?

[karim2008]

wie soll ich das programm formatieren?

[Sergej]

Hab ich doch geschrieben, benutze die [delphi] Tags

Also [\delphi] Quellcode [\/delphi] wobei du die Backslashs ("\") entfernen musst...

[DeddyH]

Editiere Deinen Beitrag, markiere den kompletten Quellcode und klicke auf den "Delphi-Code"-Button.

[marabu]

Hallo Karim,

das Formatieren hat Sharky in deinem anderen Thread schon für dich gemacht. Dazu öffnest du den Beitrag-Editor, markierst den Quelltext und drückst den Button Delphi-Code in der Werkzeugleiste des Editors. In der Vorschau siehst du dann das Ergebnis und kannst weiter nachbessern.

Wenn du einfach nur den Text aus ListBox1 in einer Datei haben möchtest, dann kannst du das über ListBox1.Items.SaveToFile('karim.txt') erledigen.

Grüße vom marabu