Forum: Object-Pascal / Delphi-Language
Delphi
by koisa,
3. Okt 2007
anstatt der while eine repeat funktion??
repeat
imagedraufsicht.Canvas.MoveTo(round((p+1)*Bv),0);
imagedraufsicht.Canvas.LineTo(round((p+1)*BV),round(v * Lv));
until p+1=c ;
Forum: Object-Pascal / Delphi-Language
Delphi
by koisa,
3. Okt 2007
procedure TFormPalettierung.SpeedButtonZeichnenClick(Sender: TObject);
var Breite, Hoehe : Integer; c,v,p : Single;
begin
Lv := StrToFloat (EditLaenge.Text);
Bv := StrToFloat (EditBreite.Text);
Hv := StrToFloat (EditHoehe.Text);
Forum: Object-Pascal / Delphi-Language
Delphi
by koisa,
3. Okt 2007
Das ist durchaus richtig. Gemeint war:
while x<y do
canvas.....(x * p , 0)
Forum: Object-Pascal / Delphi-Language
Delphi
by koisa,
3. Okt 2007
Ja danke schön nun geht es!
Eine kurze Frage noch: Kann man eine While Funktion in die Zeichenoperation einbinden??
In der Form:
while x<y do
canvas.....(x * p /0)
Forum: Object-Pascal / Delphi-Language
Delphi
by koisa,
3. Okt 2007
procedure TFormPalettierung.SpeedButtonZeichnenClick(Sender: TObject);
var Breite, Hoehe : Integer;
begin
Lv := StrToFloat (EditLaenge.Text);
Bv := StrToFloat (EditBreite.Text);
repaint;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by koisa,
3. Okt 2007
Ich habe folgendes Prolem:
Wenn die definierten Variablen als Integer angeben sind, wird das objekt gezeichnet,
sind diese Variablen jedoch als Single definiert, so wird nicht dargestellt.
Hätte evtl. jemand eine simple Idee??
Danke