Checkbox zur unterscheiung von Anzeigeflächen

[Jack Spades]

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
if checkbox.Checked 
  then
    image1.Picture.LoadFromFile('C:\bsp.jpg')
    grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') <---- Operator oder Simikolon fehlt
  else
    image1.Picture.LoadFromFile('C:\bsp.jpg');
end;

Die aufgabe dieser Zeilen soll darin bestehen: wenn ein häkchen in der checkbox ist, sieht man sowohl die mini-ansicht, als auch die vergrößerte, ist kein häkchen da, dann wird nur die mini ansicht gezeigt.

1.
eigentlich gehört doch da kein simikolon hin, da die if procedure noch nicht abgeschlossen ist, kann mir jmd sagen was das für ein operator sein soll?
2.ist das mit checkbox.checked so richtig? dachte da müsste was von true stehen, aber habs in nem anderen thema so gesehen

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
if checkbox.Checked
  then
    begin // <---- fehlt
      image1.Picture.LoadFromFile('C:\bsp.jpg')
      grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') <---- Operator oder Simikolon fehlt
    end  //<----- fehlt auch
  else
    image1.Picture.LoadFromFile('C:\bsp.jpg');
end;

Aber da Du ja in beiden Fällen Image1 befüllst, kannst Du das auch kürzen:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
  image1.Picture.LoadFromFile('C:\bsp.jpg');
  if checkbox.Checked then
    grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg');
end;

[Jack Spades]

und nun schon zum 2.mal hilfst du mir weiter
diesmal hast du das problem in bahnbrechender rekordzeit gelöst^^
auf die sache mit dem begin und end hätte ich auch selbst kommen müssen -.-
vielen dank für die schnelle hilfe

edit: leider verschwindet das bild nun nicht erh aus der vergrößerten ansicht, wenn ich erneut auf image1 klicke

[DeddyH]

:?: Meinst Du so?

Delphi-Quellcode:

if checkbox.Checked then
  grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg')
else
  grossansicht_img.Picture.Assign(nil);

Getippt und nicht getestet.

[Jack Spades]

respekt, reife leistung, ich kannte den befehl zwar noch nicht, aber du bist blitz schnell^^
hat funktioniert
nochmals danke

[himitsu]

Eine IF-Anweisung darf nicht mit einem ; abgeschlossen sein, wenn ein ELSE folgt.

Also nach dem "EINEN" Befehl darf also kein ; stehen, wenn direkt das ELSE folgt.

Bei mehreren Befehlen müssen diese in ein BEGIN-END, wobei das END, wegen dem ELSE natürlich nicht mit ; abgeschlossen wird, aber hinter die Befehle innerhalb des BEGIN-END gehört ein ; , da diese Befehle ja abgeschlossen/fertig sind.

Zitat:

Operator oder Simikolon

LoadFromFile könnte ja eine Funktion sein, welche man mit einem Operator (+ - and or ....) mit was anderem verbinden könnte, oder man sagt mit einem ; , daß dort Schluß ist ... Delphi weiß ja nicht, was du willst, deswegen nennt es beide alternativen Lösungswege ... man müßte nur einen davon auswählen.

[DeddyH]

Wenn ich nicht wüsste, was Du meinst, hätte ich jetzt kein Wort verstanden. :lol:

[mquadrat]

Der Vollständigkeit halber

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
if checkbox.Checked
  then
    begin // <---- fehlt
      image1.Picture.LoadFromFile('C:\bsp.jpg'); // <--- Das Semikolon hat auch noch gefehlt
      grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') <---- Operator oder Simikolon fehlt
    end //<----- fehlt auch
  else
    image1.Picture.LoadFromFile('C:\bsp.jpg');
end;