Fehlermeldung "zugewiesener Wert wird niemals benutzt"?

[J.Jay]

Dieser Fehler wurde bei mir immer angezeigt, wenn die Syntax im ersten Exzerpt schwächer war als im zweiten. Versuch es mal so:

2. Farbblock

Code:

procedure TForm1.B_ZeichnenClick(Sender: TObject);
var x1, y1 , x2 , y2 :integer;
begin

with form1.image1.canvas do

  begin
    x1:=Random(Width);
    x2:=Random(Width);
    y1:=Random(Height);
    y2:=Random(Height);
    Canvas.Pen.Color :=Farbe;
    Canvas.Brush.Color:=Farbe;
    Canvas.Pen.Mode :=Art;
    Canvas.Rectangle(x1,y1,x2,y2)
  end;

end;

procedure TForm1.B_EndeClick(Sender: TObject);
  begin
    close;
  end;

procedure TForm1.R_weissClick(Sender: TObject);
  begin
   Farbe:=clWhite;
  end;

procedure TForm1.R_pinkClick(Sender: TObject);
  begin
    Farbe:=clfuchsia;
  end;

procedure TForm1.R_schwarzClick(Sender: TObject);
  begin
    Farbe:=clBlack ;
  end;

procedure TForm1.R_gruenClick(Sender: TObject);
  begin
    Farbe:=clGreen;
  end;

procedure TForm1.R_PurpleClick(Sender: TObject);
  begin
    Farbe:=clpurple;
  end;

procedure TForm1.B_LeerClick(Sender: TObject);
  begin
    if B_Leer.Caption='leer' then
      begin
        Hg:=bsSolid;
        B_Leer.caption:='gefüllt';
      end
    else begin
      Hg:=bsClear;
      B_Leer.caption:='leer';
      end
  end;

procedure TForm1.B_NormalClick(Sender: TObject);
  begin
    if B_Normal.Caption='normal'
  then
  begin
    Art:=pmNotCopy;
    B_Normal.caption:='komplementär';
  end

  else
    begin
      art:=pmCopy;
      B_Normal.caption:='normal';
    end;


end;



procedure TForm1.B_LoeschenClick(Sender: TObject);
  begin
    with Form1.Image1 do
    begin
     picture:=nil;
     end;
  end;

[mkinzler]

Warum nicht einfach

Delphi-Quellcode:

procedure TForm1.B_LoeschenClick(Sender: TObject);
begin
  Image1.picture:=nil;
end;

Das with ist hier total überflüssig. Genauso wie die Verwendung einer benannten Instanz (Form1). Gibt es mehrere Instanzen bzw. wird die vorhandene umbenannt funktioniert der Code falsch oder gar nicht mehr.

[Edgware]

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

Code:

procedure TForm1.FormPaint(Sender: TObject);

var rKreis :integer;

begin

  rKreis:=1;
while rKreis <=200 do
begin

 canvas.Brush.Style:= bsclear;
 canvas.MoveTo(400,400);
 canvas.Ellipse (400+rKreis,400+rKreis,400-rKreis,400-rKreis);
 rKreis:=rKreis+2;
 sleep (30);

 end;
 end;


end.

2.

Code:

procedure TForm1.FormPaint(Sender: TObject);
begin


canvas.Pen.Color:= clgreen;
canvas.brush.color:= clyellow;
canvas.Rectangle(100,300,400,100);

Canvas.Pen.Color:= clRed;
canvas.Brush.color:= clblue;
Canvas.Ellipse(100,300,400,100);

canvas.Brush.Style:= bsclear;
Canvas.TextOut(20,90, 'Hallo');


end;

end.

3. Quadratische Gleichung

Code:

procedure TForm1.B_losClick(Sender: TObject);

var ra, rb ,rc, rx, rx1, rx2 ,rD :real;

begin

ra:=StrtoFloat(E_a.Text);
rb:=StrToFloat(E_b.Text);
rc:=StrToFloat(E_c.Text);
rD:= (rb)*(rb) - 4*(ra)*(rc);


If ra=0 Then

  If rb=0 Then

    If rc=0 Then
    begin
      E_Menge.Text:= ('Alle reellen Zahlen sind Lösungen');
      E_Menge2.Text:= ('-');
    end

    Else
      begin
      E_Menge.Text:= ('Keine Lösung');
      E_Menge2.Text:= ('-');
      end

  Else
  begin
    rx:= -rc/rb;
    E_Menge.text:= FloatToStr (rx);
    E_Menge2.Text:= ('-');
    end

    
Else
  If rD>0 Then
  begin
  rx1:= (-rb - sqrt (rD) )/(2*ra);
  rx2:= (-rb + sqrt (rD) )/ (2*ra);
  E_Menge.Text:= FloatToStr (rx1);
  E_Menge2.Text:= FloatToStr (rx2);
  end

  Else
   
      if rD=0 Then
      begin
      rx:= -rb/ (2* ra);
      E_Menge.text:= FloatToStr (rx);
      E_Menge2.Text:=  ('-');
      end

    Else
      begin
       E_Menge.text:= ('Keine Lösung');
       E_Menge2.Text:= ('-');
      end;


end;

end.

4. Linien

Code:

procedure TForm1.FormPaint(Sender: TObject);
var rZahl :integer;
  begin

for rZahl := 10 downto 1 do  
  begin
  canvas.MoveTo(100,rZahl*50);
  canvas.LineTo(700,rZahl*50);  sleep (300);

  end;
end;

end.

[mkinzler]

OnPaint ist für den Zeichenvorgang, nur für den Zeichenvorgang. Die Animationen haben da nichts zu suchen.

Btw. was hat das mit der ursprünglichen Frage zu tun?

[Sir Rufo]

Zitat von mkinzler:

Btw. was hat das mit der ursprünglichen Frage zu tun?

Der Thread-Titel ist einfach falsch und müsste lauten:

Da ich keinen Blog habe, schreibe ich hier einfach mal was rein, jeder ist herzlich eingeladen auch etwas zu schreiben, egal ob es passt oder nicht



BTW

Wir haben hier auch

Code:

[DELPHI][/DELPHI]

Tags, damit sieht der Delphi-Quellcode wesentlich schöner aus und ist vor allem besser lesbar.

Code:

procedure foo;
begin
  // do something
end;

vs.

Delphi-Quellcode:

procedure foo;
begin
  // do something
end;

... ok, da hat Aviator schon drauf hingewiesen, scheint aber wohl nicht anzukommen

[Edgware]

Zitat von Sir Rufo:

Der Thread-Titel ist einfach falsch und müsste lauten:

Da ich keinen Blog habe, schreibe ich hier einfach mal was rein, jeder ist herzlich eingeladen auch etwas zu schreiben, egal ob es passt oder nicht

Oder so
Ich hab gedacht, der Thread ist so alt, dass meine Merkhilfe eh niemand liest

[Dejan Vu]

Code:

250g Mehl, Typ 550
160ml warmes Wasser
1/2 pkg Trockenhefe
1 Teelöffel Salz

Alles vermischen, 10 min Kneten.
20 min ruhen lassen.
For i :=1 to 3 do begin
   Teig zu einem Quadrat ausziehen.
   Die Ecken nach innen klappen.
   Teig wieder in die Schüssel geben.
end;

Teig zu einem Baguette formen, oben schräg einschneiden.
Zudecken, 30 min gehen lassen.
Ofen auf 250°C vorheizen.
Schüssel mit Wasser in den Ofen, Baguette auf Backblech über die Schüssel.
Temperatur auf 180°C runterschalten, 
25min backen.  
Brot rausnehmen, mit Wasser einpinseln.
3min wieder in den Ofen.
Fertig.

Ich wollte auch mal was sagen.

[Chris211183]

Zitat von Dejan Vu:

Code:

250g Mehl, Typ 550
160ml warmes Wasser
1/2 pkg Trockenhefe
1 Teelöffel Salz

Alles vermischen, 10 min Kneten.
20 min ruhen lassen.
For i :=1 to 3 do begin
   Teig zu einem Quadrat ausziehen.
   Die Ecken nach innen klappen.
   Teig wieder in die Schüssel geben.
end;

Teig zu einem Baguette formen, oben schräg einschneiden.
Zudecken, 30 min gehen lassen.
Ofen auf 250°C vorheizen.
Schüssel mit Wasser in den Ofen, Baguette auf Backblech über die Schüssel.
Temperatur auf 180°C runterschalten, 
25min backen.  
Brot rausnehmen, mit Wasser einpinseln.
3min wieder in den Ofen.
Fertig.

Ich wollte auch mal was sagen.

EInvalidError, Brot verbrannt....

[Stevie]

Zitat von Edgware:

Ich hab gedacht, der Thread ist so alt, dass meine Merkhilfe eh niemand liest

http://pastebin.com/