Jetzt kommt der Code in Delphi 5

zusammenfalten · markieren

Delphi-Quellcode:

unit Zahlen_christian_pas;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
  var a,b,c:integer;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (a<b) and (a<c) then edit4.text:=inttostr (a);
  if (b<a) and (b<c) then edit4.text:=inttostr (b);
  if (c<a) and (c<b) then edit4.text:=inttostr (c);
  if (a>b) and (a>c) then edit5.text:=inttostr (a);
  if (b>a) and (b>c) then edit5.text:=inttostr (b);
  if (c>a) and (c>b) then edit5.text:=inttostr (c);
end;


end.

Ich weiß einfach nicht wo der Fehler ist. Das Programm soll die 3 Zahlen der der größe nach ordnen und jede im eigenen Fenster anzeigen.

[edit=SirThornberry]schließendes Delphi-Tag gesetzt - Mfg, SirThornberry[/edit]

Ich weiß auch nichts ... was genau passiert denn, bzw. passiert nicht?

Aber so als Frage: wo/wie kommen denn die Werte in diese drei Variablen rein?

PS: von Sortieren seh ich auch nichts.
Es werden nur die kleinste Zahl (in Edit4) und die größte Zahl (in Edit5) ausgegeben
[edit] stimmt ... alles unter der #Annahme, daß alle Zahlen unterschiedlich groß sind.

Hi und willkommen in der DP!

Ich habe da noch ein paar Fragen:

1) Wo/wie ließt du die Variablen a,b,c überhaupt ein?
2) Hast du beachtet, was passiert, wenn zwei Zahlen gleich groß sind?
3) Was genau funktioniert denn nicht? Ne Problembeschreibung wäre super!
4) Ich nehme an, du hast noch nicht viel erfahrungen mit Delphi oder dem Programmieren. Auf jedenfall ist die Lösung deines Problems mittels IF Abfragen nicht sehr gut - stell dir einfach mal vor, du hättest nicht 3 sondern 30 Zahlen.
5) Ist das ein Übungsprojekt von dir, in dem du programmieren lernen willst (z.B. Schule oder so) oder brauchst du das Sortieren für etwas anderes? Es gibt nämlich schon fertige Sortier-Routinen hier in der DP...

//edit: Yeah 444 Post von mir