pixel scannen stoppen

[Wadim]

hi,

hier meine code:

Delphi-Quellcode:

procedure TDemoBar.Timer1Timer(Sender: TObject);
var dc :hdc;
a,b,c,f1,f2,d : integer;
begin
a := strtoint (edit1.text);
b := strtoint (edit2.text);
c := a + 200;
d := b + 200;
pos1 := strtoint (edit3.Text);
pos2 := strtoint (edit4.Text);
for f1 := a to c do begin
for f2 := b to d do begin
dc := getdc (0);
panel4.Color := getpixel(dc,f1,f2);
releasedc (0,dc);
if panel4.Color = $0000C91C
  then begin
  edit5.text := 'die farbe gibts es';
  end
  else
  edit5.text := 'die farbe gibts es nicht';
  end;
  end;
  end;

jetzt will ich wissen wie sag ich ihm das wenn er in das then gekommen ist mit dem scannen aufhören soll-das ist jetzt ein einfaches beispiel das mit dem befehl funktioniert aber sobald ich ein anderen befehl einfüge klapt es nicht mehr so gut!!

gibt es da überhaubt so eine befehl z.b. destroy scan oder irgendwie sowas

danke

mfg wadim

[rebugger]

schreibt dahinter ein "exit;" oder "break;"

[Luckie]

@Wadim: Gehört zwar nicht zum Thema, aber für leserlich hältst du eigentlich deinen Code bei der Formatierung? ? Also ich achte beid der Formatierung immer da drauf, dass man ihn möglichst gut lesen kann und nicht, dass es möglichst nach moderner Kunst aussieht:

Delphi-Quellcode:

procedure TDemoBar.Timer1Timer(Sender: TObject);
var
  dc: hdc;
  a, b, c, f1, f2, d: integer;
begin
  a := strtoint(edit1.text);
  b := strtoint(edit2.text);
  c := a + 200;
  d := b + 200;
  pos1 := strtoint(edit3.Text);
  pos2 := strtoint(edit4.Text);
  for f1 := a to c do
  begin
    for f2 := b to d do
    begin
      dc := getdc(0);
      panel4.Color := getpixel(dc, f1, f2);
      releasedc(0, dc);
      if panel4.Color = $0000C91C
        then
      begin
        edit5.text := 'die farbe gibts es';
      end
      else
        edit5.text := 'die farbe gibts es nicht';
    end;
  end;
end;

[Wadim]

Zitat von Luckie:

@Wadim: Gehört zwar nicht zum Thema, aber für leserlich hältst du eigentlich deinen Code bei der Formatierung? ? Also ich achte beid der Formatierung immer da drauf, dass man ihn möglichst gut lesen kann und nicht, dass es möglichst nach moderner Kunst aussieht:

Delphi-Quellcode:

procedure TDemoBar.Timer1Timer(Sender: TObject);
var
  dc: hdc;
  a, b, c, f1, f2, d: integer;
begin
  a := strtoint(edit1.text);
  b := strtoint(edit2.text);
  c := a + 200;
  d := b + 200;
  pos1 := strtoint(edit3.Text);
  pos2 := strtoint(edit4.Text);
  for f1 := a to c do
  begin
    for f2 := b to d do
    begin
      dc := getdc(0);
      panel4.Color := getpixel(dc, f1, f2);
      releasedc(0, dc);
      if panel4.Color = $0000C91C
        then
      begin
        edit5.text := 'die farbe gibts es';
      end
      else
        edit5.text := 'die farbe gibts es nicht';
    end;
  end;
end;

du hast recht- ich arbeite dran denn ich weiß nicht so genau wie man das macht

mfg wadim

[Wadim]

Zitat von rebugger:

schreibt dahinter ein "exit;" oder "break;"

super-danke

mfg wadim

[Luckie]

Dann lies das: http://www.luckie-online.de/artikel/opstyleguide.shtml .

[Wadim]

Zitat von Luckie:

Dann lies das: http://www.luckie-online.de/artikel/opstyleguide.shtml .

jo danke- aber englisch ist nicht ssoo mein ding

mfg wadim

[Christian Seehase]

Moin Wadim,

Zitat von Wadim:

...aber englisch ist nicht ssoo mein ding

Nur ein Tip:
Da vieles wichtige und interessante allerdings in englischer Sprache verfasst ist, wäre es allerdings ganz sinnvoll, wenn Du daran mal arbeitest

[kiar]

hallo chris,
trifft für mich auch zu , leider ist es nicht so einfach in meinem alter noch mal von grund auf anzufangen.

sicherlich ist es hinderlich , wenn mann kein englisch kann, aber es sollte uns nicht ausschließen und ausserdem, gibt es doch auch translator . progs, die man nutzen kann.

raik

[Luckie]

Aber gerade bei Fachtexten wäre ich vorsichtig mit solchen Programmen. Jetzt wird es aber offtopic.