WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Guru, e-Zitate & Off Topic (http://www.wcm.at/forum/forumdisplay.php?f=15)
-   -   Live aus der Schule 2 (http://www.wcm.at/forum/showthread.php?t=10822)

24.01.2001 09:32

Soeben ein wunderschönes total nutzloses Delphi Programm fertiggestellt :D

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 24.01.2001 09:52

jeder fängt mal klein an :D

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

renew 24.01.2001 12:55

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 24.01.2001 14:10

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 24.01.2001 15:25

wäh, i mog nimma. hurn klumpaq.

rhapsodist 24.01.2001 16:18

<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] 24.01.2001 23:47

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

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

DarkDevourer 25.01.2001 00:03

was machten des proggy den eigentlich??

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

c_krutzler 06.02.2001 14:37

A wahnsinn!!!!!! :D :D :D

3of4 07.02.2001 20:23

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

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


Alle Zeitangaben in WEZ +2. Es ist jetzt 07:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag