Array timer, stringgrid hilft mir

[Feuerwehrmann90]

Hallo also soweit bin ich jetzt un ich ka wie es soll weiter gehn

unit Unit1;

interface

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

type
TForm1 = class(TForm)
SG_ausgabe: TStringGrid;
Button1: TButton;
Button2: TButton;
ED_max: TEdit;
ED_mittel: TEdit;
ED_min: TEdit;
timer: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
i:integer ;



implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
timer.Enabled:=true;
for i:=1 to 60 do
SG_ausgabe.Cells[0,i]:=Inttostr(i);
SG_ausgabe.RowCount:=i;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SG_ausgabe.Cells[0,0]:='Nummer';
SG_ausgabe.Cells[1,0]:='Datum/Zeit';
SG_ausgabe.Cells[2,0]:='Grad Celsius';
end;

end.

[DeddyH]

Könntest Du bitte die Delphi-Tags benutzen (Quelltext markieren und auf "Delphi-Code" klicken)? Ist sonst echt schwer zu lesen.

[Feuerwehrmann90]

du sryich weiß ent was du meinst oder wo ich das finde soll =(

sry wenn das nur die halbe antwort ist aber ich lkanns net weiter =(

[Feuerwehrmann90]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
SG_ausgabe: TStringGrid;
Button1: TButton;
Button2: TButton;
ED_max: TEdit;
ED_mittel: TEdit;
ED_min: TEdit;
timer: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
i:integer ;



implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
timer.Enabled:=true;
for i:=1 to 60 do
SG_ausgabe.Cells[0,i]:=Inttostr(i);
SG_ausgabe.RowCount:=i;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SG_ausgabe.Cells[0,0]:='Nummer';
SG_ausgabe.Cells[1,0]:='Datum/Zeit';
SG_ausgabe.Cells[2,0]:='Grad Celsius';
end;

end.
[delphi]

[Feuerwehrmann90]

[delphi]unit Unit1;

interface

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

type
TForm1 = class(TForm)
SG_ausgabe: TStringGrid;
Button1: TButton;
Button2: TButton;
ED_max: TEdit;
ED_mittel: TEdit;
ED_min: TEdit;
timer: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
i:integer ;



implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
timer.Enabled:=true;
for i:=1 to 60 do
SG_ausgabe.Cells[0,i]:=Inttostr(i);
SG_ausgabe.RowCount:=i;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SG_ausgabe.Cells[0,0]:='Nummer';
SG_ausgabe.Cells[1,0]:='Datum/Zeit';
SG_ausgabe.Cells[2,0]:='Grad Celsius';
end;

end.

[DeddyH]

Geh auf den Beitrag von oben und wähle "edit". Dann markierst Du den Quelltext und drückst oben auf "Delphi-Code".

[Feuerwehrmann90]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SG_ausgabe: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    ED_max: TEdit;
    ED_mittel: TEdit;
    ED_min: TEdit;
    timer: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:integer ;
  


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
timer.Enabled:=true;
for i:=1 to 60 do
SG_ausgabe.Cells[0,i]:=Inttostr(i);
SG_ausgabe.RowCount:=i;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SG_ausgabe.Cells[0,0]:='Nummer';
SG_ausgabe.Cells[1,0]:='Datum/Zeit';
SG_ausgabe.Cells[2,0]:='Grad Celsius';
end;

end.

sry jetzt gehts alle gute dinge sind 3

[Feuerwehrmann90]

so müsst es aber richitg sein odeRß

ich bin mal 5 min vor da tür firsch lusft schnappe vlt gehts dannacher besser kansnt dir den code ja mal angucke un vlt tipp geben wie ich weiter machen muss

danke

[DeddyH]

OK, fangen wir vorne an:

1. i sollte eine lokale Variable sein.
2. die Schleife in Button1Click gehört in das Timer-Event
3. die Definition der Daten und des Arrays fehlen noch.

[edit] Mit "Daten" meine ich die Messwerte [/edit]

[Feuerwehrmann90]

du sry bei uns is es internet zusammen gebroche es ging gar nix mehr un awei bist du off =(

naja kann ma nix machen ich bastel noch bischen dran rum un dann wird es moin schon schief geehn =(

danke ann alle besonders an Deddy