Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: funktion zeichen

    Delphi
    by Valle, 2. Jan 2009
  Also du hast da generell ein bisschen was mit den Variablen durcheinander gebracht. Ich habe mal aus reiner Langeweile die Funktion ein wenig verbessert und meinem Geschmack angepasst. :mrgreen:
  
  function f(i: Integer): Integer;
  begin
  result := 2*i+100;
  end;
  
  procedure TForm1.Image1Click(Sender: TObject);
  var i, xn, yn, fx, fy: integer;
  LastPoint: TPoint;
• Forum: Object-Pascal / Delphi-Language

  Re: funktion zeichen

    Delphi
    by Valle, 2. Jan 2009
  Irgendwie hast du begin und end falsch gesetzt. Müsste das nicht eher so aussehen?
  
  
  procedure TForm1.Button2Click(Sender: TObject);
  var i,xn,yn, fx, fy:integer; //i=x,
  begin
  xn:=image1.Canvas.PenPos.X; // Koordinatenursrung bei (100,100)
  yn:=image1.Canvas.PenPos.Y;
  image1.Canvas.Pen.Color:=clRed;