Live aus der Schule 2

Soeben ein wunderschönes total nutzloses Delphi Programm fertiggestellt

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
memo2.clear;
edit1.setfocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var z, o : integer;
begin
z:=strtoint(edit1.text);
o:=strtoint(edit2.text);
REPEAT
memo2.lines.add(inttostr(z*2));
z:=z*2;
UNTIL z > o;
memo2.visible:=true;
end;

end.

------------------
Signatur? Was ist eine Signatur?
Übertakten, nicht ÜbertaCKten

[rhapsodist]

jeder fängt mal klein an

------------------
regards, rhapsodist

[renew]

Bin auch grad in da Schui.

Hab KÜ. Hab aber nix mehr zum tun, da ich schon fertig bin.

Na so surf ich halt durch die gegend, aber mir fällt nix gscheites mehr ein.

Naja was solls....

------------------
so long

[Moose]

Und ich böser Junge war heute nicht in der Schule ...

Nein, sitze den ganzen Tag rum, mein Schädl dröhnt und habe Fieber

Besserungskarten bitte an meine Mailadresse, Danke

Übrigens, programmieren hasse ich wie die Pest, hatte Informatik selbst 3 Jahre lang, jedes Jahr ging es mir mehr auf den Keks, zum Schluß checkte ich gar nichts mehr.

[spunz]

wäh, i mog nimma. hurn klumpaq.

[rhapsodist]

<BLOCKQUOTE><font size="1" face="Verdana, Arial">quote:</font><HR>Original erstellt von spunz:
wäh, i mog nimma. hurn klumpaq.<HR></BLOCKQUOTE>

mir geht's gleich

------------------
regards, rhapsodist

[Umlüx[L-M]]

was habts denn gegen programmieren? ist doch lustig! 'Hello World' Programme rulen

------------------
The Umlüx Project - Wissen sie was das soll? Nein? Wir auch nicht.

[DarkDevourer]

was machten des proggy den eigentlich??

------------------
cya
DarkDevourer
Newsmonk@ theGOOM

[c_krutzler]

A wahnsinn!!!!!!

[3of4]

hat jemand dass Prog schon kompiliert, oder kann man dass auch mit cpp?

------------------
Entsorge für 9000$ jede Festplatte auf der Windows ist...