Forum: Algorithmen, Datenstrukturen und Klassendesign
by Edgware,
19. Mai 2015
implementation
var Farbe: tColor;
Hg : tBrushStyle;
Art : tPenMode;
{$R *.dfm}
procedure TForm1.B_ZeichnenClick(Sender: TObject);
var x1, y1 , x2 , y2 :integer;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Edgware,
19. Mai 2015
Hat mir echt gut gefallen, Delphi mochte das nur leider nicht, Dejan Vu... Naja, neuer Versuch :D
procedure TForm1.B_StartClick(Sender: TObject);
var i, rAnzahl, rVerzogerung, x,y, rDicke :integer;
begin
randomize ;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Edgware,
17. Mai 2015
Oder so :D
Ich hab gedacht, der Thread ist so alt, dass meine Merkhilfe eh niemand liest :D
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Edgware,
17. Mai 2015
Hm, @J.Jay, ich seh da jetzt nicht so ganz den Zusammenhang, was genau hätte ich bei mir denn jetzt ändern sollen?
Naja, hab hier erstmal was anderes:
1. Kreis
procedure TForm1.FormPaint(Sender: TObject);
var rKreis :integer;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Edgware,
17. Mai 2015
Okay, ich hab meinen Fehler gefunden.
Hier mal die überarbeitete Version:
1. Kreisquarder
procedure TForm1.FormActivate(Sender: TObject);
var Anfang, Ende, J,x,y,I :Integer;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Edgware,
23. Nov 2014
Hallo Leute,
ich versuche grad ein Programm zu erstellen und steh offensichtlich ziemlich auf der Leitung. Es kommt immer die Fehlermeldung, " Unit1.pas(55): Auf 'rProzentsatz' zugewiesener Wert wird niemals benutzt". Ich komm aber nicht drauf, wo genau jetzt der Fehler liegt, weil ich rProzentsatz ja im Prinzip einen Wert zugewiesen habe, mit zwei Prozent im Rahmen liegt - oder?
Vielleicht...