Taschenrechner mit ListBox!

[Dalai]

Zitat von info.noob:

Ist schon gelöst!^^

Och menno. Warum muss man immer nachfragen, woran es nun lag und wie es gelöst wurde? Was soll das? Hilft dir das, wenn du per Suchmaschine auf ein Thema kommst, in dem am Ende ein solcher/ähnlicher Satz steht?

Ich könnte das auch provokanter formulieren: Warum sollten Helfer noch Zeit in ihre Antworten stecken, wenn die Hilfesuchenden das bei Lösung des Themas nicht tun? Es gehört IMO einfach zum guten Ton und Umgang miteinander, das zu tun. Dazu kommt, dass nicht nur anderen Hilfesuchenden mit einer Lösung geholfen ist, sondern manchmal sogar auch anderen Helfern!

So, das musste mal raus. Nimm es nicht zu persönlich, aber da ich sowas gestern schon in einem anderen Thema gesehen habe, wurde es mir nun zuviel.

MfG Dalai

[Sir Rufo]

Zitat von Dalai:

Zitat von info.noob:

Ist schon gelöst!^^

Och menno. Warum muss man immer nachfragen, woran es nun lag und wie es gelöst wurde? Was soll das? Hilft dir das, wenn du per Suchmaschine auf ein Thema kommst, in dem am Ende ein solcher/ähnlicher Satz steht?

Ich könnte das auch provokanter formulieren: Warum sollten Helfer noch Zeit in ihre Antworten stecken, wenn die Hilfesuchenden das bei Lösung des Themas nicht tun? Es gehört IMO einfach zum guten Ton und Umgang miteinander, das zu tun. Dazu kommt, dass nicht nur anderen Hilfesuchenden mit einer Lösung geholfen ist, sondern manchmal sogar auch anderen Helfern!

So, das musste mal raus. Nimm es nicht zu persönlich, aber da ich sowas gestern schon in einem anderen Thema gesehen habe, wurde es mir nun zuviel.

MfG Dalai

Als sozial bezeichnet man Handlungen, wenn auch andere davon profitieren können.
Asozial ist das Gegenteil davon.

Somit hat es jeder selber in der Hand wie Andere ihn wahrnehmen

[Mathematiker]

Hallo,
seine Lösung findet Ihr unter http://www.entwickler-ecke.de/viewto...=675338#675338.

Beste Grüße
Mathematiker

[Dalai]

Zitat von Mathematiker:

seine Lösung findet Ihr unter http://www.entwickler-ecke.de/viewto...=675338#675338.

Ah, danke, das mit dem else ist mir in seinem Code gar nicht aufgefallen (manchmal hat's der Baum nicht so mit dem Wald ). Aber selbst hierzu ist zu sagen, dass es nett(iquette) gewesen wäre, auf diesen Crosspost hinzuweisen bzw. darauf, dass dort die Lösung zu finden ist. Nunja.

MfG Dalai

[info.noob]

Zitat von Dalai:

Zitat von info.noob:

Ist schon gelöst!^^

Och menno. Warum muss man immer nachfragen, woran es nun lag und wie es gelöst wurde? Was soll das? Hilft dir das, wenn du per Suchmaschine auf ein Thema kommst, in dem am Ende ein solcher/ähnlicher Satz steht?

Ich könnte das auch provokanter formulieren: Warum sollten Helfer noch Zeit in ihre Antworten stecken, wenn die Hilfesuchenden das bei Lösung des Themas nicht tun? Es gehört IMO einfach zum guten Ton und Umgang miteinander, das zu tun. Dazu kommt, dass nicht nur anderen Hilfesuchenden mit einer Lösung geholfen ist, sondern manchmal sogar auch anderen Helfern!

So, das musste mal raus. Nimm es nicht zu persönlich, aber da ich sowas gestern schon in einem anderen Thema gesehen habe, wurde es mir nun zuviel.

MfG Dalai

Nur zu deiner Information.. Ich hab nochmal in einem Forum gefragt, eben welchen den du als Crosspost angegeben hast, da meine Dead-Line sehr kurz ist und ich eine schnelle Antwort gebraucht hatte. Ich geb zu, dass ich es hätte verlinken können,ich habs in dem Moment eben vergessen(sorry, dass ich auch mal Fehler mache) aber ,dass du gleich so harsch mit mir bist finde ich recht gemein. Ich kann ja auch nix für die kurze Zeit, die mir für sowas (für mich recht schwieriges, da ich Anfänger bin) zu Verfügung steht.
Zum nächsten Mal merke ich mir eben, dass ich die Lösung dann auch hinschreibe.
Bitteschön!

[Dalai]

Ich bin oft sehr direkt, manchmal sogar provokant (wie in diesem Fall), aber ich sagte ja schon: Nimm es nicht zu persönlich, weil du nicht allein damit gemeint warst, auch wenn du nun die "volle Ladung" abbekommen hast. Ein Hinweis wie "Lösung gibt's hier <Link>" oder sowas in der Form hätte völlig gereicht (und um das zu schreiben, braucht man ja keine Stunden).

MfG Dalai

[info.noob]

Zitat von Dalai:

Ich bin oft sehr direkt, manchmal sogar provokant (wie in diesem Fall), aber ich sagte ja schon: Nimm es nicht zu persönlich, weil du nicht allein damit gemeint warst, auch wenn du nun die "volle Ladung" abbekommen hast. Ein Hinweis wie "Lösung gibt's hier <Link>" oder sowas in der Form hätte völlig gereicht (und um das zu schreiben, braucht man ja keine Stunden).

MfG Dalai

ja, ich weiß was du meinst...aber ich hab in dem moment einfach nich daran gedacht! Tut mir wirklich leid!

[DeddyH]

Sooo schlimm isses ja nu auch wieder nich. Einfach beim nächsten Mal dran denken, und alles ist feini feini

[info.noob]

Sorry, dass ich noch mal fragen muss, aber es ist wichtig!
Ich möchte jetzt nämlich, dass eine Fehlermeldung angezeigt wird, wenn in einem der edits nichts reingeschrieben wurde und man auf Ergebnis drückt. Ich habs schon mit dem versucht: if (zaehler.Text = '') or (zaehler2.Text = '') then begin ShowMessage('Du hast was vergessen!') end; Aber hat nicht geklappt. Das Programm ist nur wieder abgestürzt.

Hier ist mein Quellcode nochmal:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    zaehler: TEdit;
    reset: TButton;
    zaehler2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    ListBox: TListBox;
    berechnen: TButton;
    schliessen: TButton;
    ergebnis: TLabel;
    Timer: TTimer;
    fehler1: TLabel;
    Image2: TImage;
    DatumUhr1: TLabel;
    procedure berechnenClick(Sender: TObject);
    procedure schliessenClick(Sender: TObject);
    procedure resetClick(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure zaehlerKeyPress(Sender: TObject; var Key: Char);
    procedure zaehler2KeyPress(Sender: TObject; var Key: Char);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
   a,b: real;
implementation

{$R *.DFM}



procedure TForm1.berechnenClick(Sender: TObject);
var a, b: real;
begin
    a:= StrtoFloat(zaehler.Text);
    b:= StrtoFloat(zaehler2.Text);

   if ListBox.selected[0] then ergebnis.Caption:= FloattoStrF(a + b,ffFixed,10,4);
   if ListBox.selected[1] then ergebnis.Caption:= FloattoStrF(a - b,ffFixed,10,4);
   if ListBox.selected[2] then ergebnis.Caption:= FloattoStrF(a * b,ffFixed,10,4);
   if (ListBox.selected[3]) and (b=0) then begin
      Showmessage('Durch 0 darf nicht geteilt werden!')end;
   if (ListBox.selected[3]) and (b <> 0)then
       ergebnis.Caption:= FloattoStrF(a / b,ffFixed,10,4);
  if (a>=9999999999999999) or (b>=9999999999999999) then begin ShowMessage('Die Zahl ist zu groß') end;
   end;
procedure TForm1.schliessenClick(Sender: TObject);
begin
Close();
end;

procedure TForm1.resetClick(Sender: TObject);
begin
zaehler.Clear;
zaehler2.Clear;
ergebnis.Caption:='Ergebnis'
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
   DatumUhr1.Caption:=DateTimeToStr(Now)+ ' Uhr';
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
Showmessage('Artwork © by Yana Toboso');
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Showmessage('Artwork © by Yana Toboso and edited by us')
end;

procedure TForm1.zaehlerKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#08,',']) then begin
 key:= #0;
 Beep;
  end;
end;

procedure TForm1.zaehler2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#08,',']) then begin
 key:= #0;
 Beep;
  end;
end;

end.

[DeddyH]

Und wo steht da jetzt der angesprochene Code?