[HaBo]

Agent3004 · 08.01.08, 11:36

Hallo, ich bin relativ neu in Delphi und wollte in einem programm, sobald man auf einen Button klickt (also beim "Onclick" [procedure TForm1.Button1Click(Sender: TObject);] Event) eine zufallszahl ausgeben lassen die immer so aufgebaut sein soll (auch immer diese länge, wenn die leerstellen nicht möglich sind dann evt. | oder halt kein trennzeichen):

xxxx xxxx xxxx xxxx

also z.B.:

1364 9090 1235 1739

kann mir hier einer weiterhelfen?

ich bin in Delphi noch son ziemlicher noob...

Agent3004

**CDW** · 08.01.08, 12:08

Da ich im Moment kein Delphi habe, nur Pascal (sollte aber kompatibel sein)

Code:

procedure generate;
var output:string;
    wert1,wert2,wert3,wert4:string;
begin
  randomize;

  Str((random(9000)+1000),wert1);
  Str((random(9000)+1000),wert2);
  Str((random(9000)+1000),wert3);
  Str((random(9000)+1000),wert4);
  output:=wert1+' '+wert2+' '+wert3+' '+wert4;
  println(output);
end;

http://www.delphibasics.co.uk/RTL.asp?Name=Str
http://www.delphibasics.co.uk/RTL.asp?Name=Random
Wobei in Delphi es noch um einiges eleganter gehen sollte - die Konvertierung kann auch mit IntToStr erfolgen.

Anzeige

- Anzeige -

Agent3004 · 08.01.08, 12:17

hmm da kommt jetzt dieser fehler:

"println(output);"

[Error] Unit1.pas(42): Undeclared indentifier 'println'
[Error] Unit1.pas(44): ';' expected but '.' found
[Error] Unit1.pas(46): Declaration expected but end of file found

edit: aso ja wo muss ich das denn hin? unter das procedure TForm1.Button1Click(Sender: TObject); oder net?

**CDW** · 08.01.08, 13:35

das

Code:

randomize;

  Str((random(9000)+1000),wert1);
  Str((random(9000)+1000),wert2);
  Str((random(9000)+1000),wert3);
  Str((random(9000)+1000),wert4);
  output:=wert1+' '+wert2+' '+wert3+' '+wert4

in der
procedure TForm1.Button1Click(Sender: TObject);
sollte das Gewünschte machen. Nur den output String musst Du noch geeignet ausgeben.

Allerdings: sicher, dass Du nicht erstmal die Grundlagen von Delphi machen solltest?

Agent3004 · 08.01.08, 13:39

hab ich vor danach zu machen

hab delphi auch erst seit gestern... und wollte halt das teil hinbekommen =D

jetzt kann ichs zwar starten aber wie geb ich das jetzt in dem "edit" feld aus?

Code:

 procedure generate;
var output:string;
wert1,wert2,wert3,wert4:string;
begin
randomize;

Str((random(9000)+1000),wert1);
Str((random(9000)+1000),wert2);
Str((random(9000)+1000),wert3);
Str((random(9000)+1000),wert4);
output:=wert1+' '+wert2+' '+wert3+' '+wert4
end;

end.

jetzt beschwert er sich dass da ein begin sein muss und kein end.

Code:

 procedure generate;
var output:string;
wert1,wert2,wert3,wert4:string;
begin
randomize;

Str((random(9000)+1000),wert1);
Str((random(9000)+1000),wert2);
Str((random(9000)+1000),wert3);
Str((random(9000)+1000),wert4);
output:=wert1+' '+wert2+' '+wert3+' '+wert4
end;

begin
end;
end.

Jetzt startet er es aber er gibt nichts aus...

ChiefWiggum · 08.01.08, 13:56

ich denke mal dass du ein END zuviel hast

Agent3004 · 08.01.08, 14:15

wo ein end zuviel? ein end. oder ein end;?

**bitmuncher** · 08.01.08, 14:26

Wenn du 'output' nicht ausgibst, gibt natürlich auch das Programm nichts aus. Du solltest den Text-Value des Edit-Felds entsprechend mit dem Inhalt der Variable 'output' füllen.

Edit: Und du solltest dir wirklich mal ein Tutorial zu Delphi nehmen, bevor du weitere Fragen stellst, die du selbst beantworten könntest, wenn du wenigstens die Grundlagen beherrschen würdest.

SLDZ · 08.01.08, 14:26

Zitat:

Original von AlterHacker
ich denke mal dass du ein END zuviel hast

Nein, das stimmt schon, "end;" beendet die "Deklaration" (hoffe ihr wisst was ich meine

) und "end." beendet das "Project"

Anhand deines Fehlers: "[Error] Unit1.pas(46): Declaration expected but end of file found" denke ich du hast ein "end;" zu wenig

Bin mir aber nicht sicher, bin auch nur ein anfänger

Agent3004 · 08.01.08, 15:28

also ähm WO muss das
println(output);
jetzt hin? oder wie lass ich jetzt den edit balken die zufallszahl ausgeben?

**bitmuncher** · 08.01.08, 15:39

Du musst der Eigenschaft 'Text' vom TEdit-Objekt den Wert von 'output' zuweisen.

Beispiel:

Code:

Edit1.Text := output;

RTFM

Agent3004 · 08.01.08, 16:07

hmm? unter Properties oder wo?

ps: jaja ich weiß ich nerf grad schon so langsam...

ps2: ja ich wiß auch das das zu den grundlagen gehört (denk ich zumindest)

**bitmuncher** · 08.01.08, 17:29

Zitat:

Original von Agent3004
hmm? unter Properties oder wo?

Nein, in dem Event-Handler.

Zitat:

Original von Agent3004
ps2: ja ich wiß auch das das zu den grundlagen gehört (denk ich zumindest)

Und warum schaust du dir diese dann nicht endlich mal an? Es gibt ein recht brauchbares Tutorial in der Hilfe von Delphi, wenn ich mich recht erinnere.

Agent3004 · 08.01.08, 17:54

Weil ich bis gerade eben die englische version hatte - und die hilfen da drin les ich nie weil ich sie selten kapier

EDIT: öööh wo genau in dem event teil? hab jetzt die deutsche version

**bitmuncher** · 08.01.08, 18:28

Deine Funktion "TForm1.Button1Click" ist ein sogenannter Event-Handler. Er handhabt den Event für einen Klick auf den Button.

Mit deiner Einstellung wirst du es nie schaffen einigermaßen anständig zu programmieren. Als Entwickler/Programmierer braucht man solche Grundskills wie Eigeninitiative u.ä.

Anzeige

- Anzeige -

08.01.08, 11:36	#1 (permalink)
Agent3004 Registriert seit: 08.01.08 Likes: 0	[delphi] Zufallszahlen+Startfenster [GELÖST] Anzeige Hallo, ich bin relativ neu in Delphi und wollte in einem programm, sobald man auf einen Button klickt (also beim "Onclick" [procedure TForm1.Button1Click(Sender: TObject);] Event) eine zufallszahl ausgeben lassen die immer so aufgebaut sein soll (auch immer diese länge, wenn die leerstellen nicht möglich sind dann evt. \| oder halt kein trennzeichen): xxxx xxxx xxxx xxxx also z.B.: 1364 9090 1235 1739 kann mir hier einer weiterhelfen? ich bin in Delphi noch son ziemlicher noob... Agent3004

08.01.08, 12:08	#2 (permalink)
CDW Moderator Registriert seit: 20.07.05 Likes: 202	Da ich im Moment kein Delphi habe, nur Pascal (sollte aber kompatibel sein) Code: procedure generate; var output:string; wert1,wert2,wert3,wert4:string; begin randomize; Str((random(9000)+1000),wert1); Str((random(9000)+1000),wert2); Str((random(9000)+1000),wert3); Str((random(9000)+1000),wert4); output:=wert1+' '+wert2+' '+wert3+' '+wert4; println(output); end; http://www.delphibasics.co.uk/RTL.asp?Name=Str http://www.delphibasics.co.uk/RTL.asp?Name=Random Wobei in Delphi es noch um einiges eleganter gehen sollte - die Konvertierung kann auch mit IntToStr erfolgen. __________________ Noch mal, für alle Pseudo-Geeks: 1+1=0. -> 10 wäre Überlauf! Selig, wer nichts zu sagen hat und trotzdem schweigt.

08.01.08, 13:35	#4 (permalink)
CDW Moderator Registriert seit: 20.07.05 Likes: 202	das Code: randomize; Str((random(9000)+1000),wert1); Str((random(9000)+1000),wert2); Str((random(9000)+1000),wert3); Str((random(9000)+1000),wert4); output:=wert1+' '+wert2+' '+wert3+' '+wert4 in der procedure TForm1.Button1Click(Sender: TObject); sollte das Gewünschte machen. Nur den output String musst Du noch geeignet ausgeben. Allerdings: sicher, dass Du nicht erstmal die Grundlagen von Delphi machen solltest? __________________ Noch mal, für alle Pseudo-Geeks: 1+1=0. -> 10 wäre Überlauf! Selig, wer nichts zu sagen hat und trotzdem schweigt.

08.01.08, 13:56	#6 (permalink)
ChiefWiggum Registriert seit: 09.10.07 Likes: 11	ich denke mal dass du ein END zuviel hast __________________ Be the source always with you.

08.01.08, 14:26	#8 (permalink)
bitmuncher Moderator Registriert seit: 30.09.06 Likes: 441	Wenn du 'output' nicht ausgibst, gibt natürlich auch das Programm nichts aus. Du solltest den Text-Value des Edit-Felds entsprechend mit dem Inhalt der Variable 'output' füllen. Edit: Und du solltest dir wirklich mal ein Tutorial zu Delphi nehmen, bevor du weitere Fragen stellst, die du selbst beantworten könntest, wenn du wenigstens die Grundlagen beherrschen würdest. __________________ Mein Blog - Mein Job - Diaspora Der Ring uns zu knechten besteht aus 12 Sternen auf blauem Grund. Neue Beiträge im Habo via Twitter - Das HaBo auf FB - Das HaBo bei G+

08.01.08, 12:17	#3 (permalink)
Agent3004 Themenstarter Registriert seit: 08.01.08 Likes: 0	hmm da kommt jetzt dieser fehler: "println(output);" [Error] Unit1.pas(42): Undeclared indentifier 'println' [Error] Unit1.pas(44): ';' expected but '.' found [Error] Unit1.pas(46): Declaration expected but end of file found edit: aso ja wo muss ich das denn hin? unter das procedure TForm1.Button1Click(Sender: TObject); oder net?

08.01.08, 14:15	#7 (permalink)
Agent3004 Themenstarter Registriert seit: 08.01.08 Likes: 0	wo ein end zuviel? ein end. oder ein end;?

08.01.08, 15:28	#10 (permalink)
Agent3004 Themenstarter Registriert seit: 08.01.08 Likes: 0	also ähm WO muss das println(output); jetzt hin? oder wie lass ich jetzt den edit balken die zufallszahl ausgeben?

08.01.08, 15:39	#11 (permalink)
bitmuncher Moderator Registriert seit: 30.09.06 Likes: 441	Du musst der Eigenschaft 'Text' vom TEdit-Objekt den Wert von 'output' zuweisen. Beispiel: Code: Edit1.Text := output; RTFM __________________ Mein Blog - Mein Job - Diaspora Der Ring uns zu knechten besteht aus 12 Sternen auf blauem Grund. Neue Beiträge im Habo via Twitter - Das HaBo auf FB - Das HaBo bei G+

08.01.08, 16:07	#12 (permalink)
Agent3004 Themenstarter Registriert seit: 08.01.08 Likes: 0	hmm? unter Properties oder wo? ps: jaja ich weiß ich nerf grad schon so langsam... ps2: ja ich wiß auch das das zu den grundlagen gehört (denk ich zumindest)

08.01.08, 17:54	#14 (permalink)
Agent3004 Themenstarter Registriert seit: 08.01.08 Likes: 0	Weil ich bis gerade eben die englische version hatte - und die hilfen da drin les ich nie weil ich sie selten kapier EDIT: öööh wo genau in dem event teil? hab jetzt die deutsche version

08.01.08, 18:28	#15 (permalink)
bitmuncher Moderator Registriert seit: 30.09.06 Likes: 441	Deine Funktion "TForm1.Button1Click" ist ein sogenannter Event-Handler. Er handhabt den Event für einen Klick auf den Button. Mit deiner Einstellung wirst du es nie schaffen einigermaßen anständig zu programmieren. Als Entwickler/Programmierer braucht man solche Grundskills wie Eigeninitiative u.ä. __________________ Mein Blog - Mein Job - Diaspora Der Ring uns zu knechten besteht aus 12 Sternen auf blauem Grund. Neue Beiträge im Habo via Twitter - Das HaBo auf FB - Das HaBo bei G+

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Perl zufallszahlen in einem Bereich	Dawen	Code Kitchen	2	29.05.08 21:44
Debian Zufallszahlen Generator	Cyberm@ster	Fun Section	4	24.05.08 16:07
Zufallszahlen	phonix28888	(In)security allgemein	5	12.02.05 20:37
Delphi X	Master Fes	Code Kitchen	0	03.10.04 15:43
4 zufallszahlen ind php aber was besonderes	chrisi01	(Web-) Design und webbasierte Sprachen	0	29.11.03 23:11

[HaBo]

[delphi] Zufallszahlen+Startfenster [GELÖST]