Paintbox

[umoveme]

Hi,

ih möchte Werte Random(100) in einer Paintbox darstellen, die entlang der x Achse gezeichnet werden.
Was habe ich falsch gemacht ?

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Diagramm: TPaintBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure MesswerteZeichnen;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var k,n:integer;
var Messwerte:array of integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   inc(n);
   setlength (messwerte,n+1);
   Messwerte[n] := random(10);
   MesswerteZeichnen;
end;


procedure TForm1.MesswerteZeichnen;
var x_real :integer;
begin
   x_real := 40+k;
   Diagramm.Canvas.Pen.style := pssolid;
   Diagramm.Canvas.Pen.Color := clblue;
   Diagramm.Canvas.LineTo(x_real,Messwerte[n]);
   k:=+1;
end;

end.

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

[sakura]

Hi umoveme,

herzlich willkommen in der :dp: Nutze bei obigen Beitrag bitte nochmal den Edit-Button und setze dann die [delphi]-Tags.

Danke,
...:cat:...

[Ultimator]

Findet ihr nicht auch, dass ein Thread zu dem Thema reicht? :roll: :-)

[flomei]

Is doch schon lange gemeldet... ;)

MfG Florian :hi:

[sakura]

Oh, den gibt es schon mal.

* * * LOCKED * * *

* * * UNLOCKED * * *

Es sind zwar die gleichen Source Codes, aber andere Fragen... Nächstes Mal bitte nur den wichtigen Teil anstatt alles posten. Ändere bitte die Titel so, dass man weiß worum es geht, ist sonst verwirrend :roll:

...:cat:...