AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Kreis zeichnen

Ein Thema von 2va · begonnen am 16. Nov 2003 · letzter Beitrag vom 16. Nov 2003
Antwort Antwort
2va

Registriert seit: 16. Nov 2003
1 Beiträge
 
Delphi 6 Personal
 
#1

Kreis zeichnen

  Alt 16. Nov 2003, 12:56
ich bin leider noch Anfänger im Umgang mit Delphi und kenne mich folgich noch nicht so richtig mit den Befehlen aus.
Ich soll in eine Art "Paint"-Programm einen Kreis zeichen lassen. Dies soll nach Drücken eines Buttons auf der Imagekomponente geschehen und zwar dort wo man mit der Maus den "Startpunkt" und den Endpunkt setzt.
Ich hab schon was versucht, was allerdings nicht ganz bzw. garnicht funktioniert.
Delphi-Quellcode:
//Kreis
  if KreisButton.Down and (Shift =[ssleft]) then
     begin Lox:=X;Loy:=Y; first:=true end;
teil eins
//Kreis
  if KreisButton.Down and (shift=[ssleft]) then
    begin
     image1.Canvas.Pen.Mode:=pmNotXor;
     if not first then image1.Canvas.Ellipse(Lox,Loy,AltX,Alty);
     image1.Canvas.Ellipse(Lox,Loy,X,Y);
     AltX:=X;AltY:=Y;
     first:=false
    end;
teil zwei
//Kreis
  if KreisButton.Down then
  begin
  image1.Canvas.Pen.Mode:=pmCopy
  image1.Canvas.Ellipse(Lox,Loy,X,Y);
  end;
teil drei
Der Fehler tritt im dritten Teil auf und lautet
[Fehler] Grafik4mn.pas(202): Operator oder Semikolon fehlt

was kann man da machen??? Ich bin echt ratlos
es wäre nett wenn jemand sich dieses Problems annehmen könnte und mir so weterhelfen könnte
schon mal Vielen Dank!!
  Mit Zitat antworten Zitat
Benutzerbild von Mirilin
Mirilin

Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
 
Delphi 6 Professional
 
#2

Re: Kreis zeichnen

  Alt 16. Nov 2003, 12:59


Delphi-Quellcode:
if KreisButton.Down then
* begin
* image1.Canvas.Pen.Mode:=pmCopy <-- hier fehlt ein Semikolon
* image1.Canvas.Ellipse(Lox,Loy,X,Y);
* end;
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#3

Re: Kreis zeichnen

  Alt 16. Nov 2003, 13:00
Hallo und herzlich Willkommen in der DP.

Du hast "teil eins" und "teil zwei" einfach so mitten drin reingeschrieben. Das ist aber kein Befehl und nix, also mach // davor, dann sind es Kommentare.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Kreis zeichnen

  Alt 16. Nov 2003, 13:06
Moin 2va,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Zitat von 2va:
[Fehler] Grafik4mn.pas(202): Operator oder Semikolon fehlt
Zitat von 2va:
was kann man da machen???
Ein Semikolon setzen...

I.d.R. muss jede Programmzeile mit einem ; abgeschlossen werden, damit der Compiler erkennen kann, wo ein Statement endet, da man die logisch zusammenhängenden Zeilen über mehrere physikalische Zeilen verteilen kann.

z.B.:

image1.Canvas.Pen.Mode:=pmNotXor; kann auch geschrieben werden:

Delphi-Quellcode:
image1.Canvas.Pen.Mode
:=
pmNotXor
;
nicht schön, aber machbar. Wo die logische Zeile endet wird mit dem ; markiert.

Bei der genannten Fehlermeldung muss man dann vor der angegebenen Zeile nach dem fehlenden ; (oder ggf. Operator, dürfte wohl aber nur selten der Fall sein) suchen.

Schau Dir also am besten noch einmal den letzten Abschnitt Deines Codeschnipsels an.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz