Problem mit Random und Strings

**Delphi Star**

Warum lässt sich das nicht compilieren

Delphi-Quellcode:

			var Zufall:string;

const Textfelder: array[0..9] of tcaption = (edit1.text, edit2.text, edit3.text, edit4.text, edit5.text, edit6.text, edit7.text, edit8.text, edit9.text, edit10.text);

Zufall := Textfelder[random(10)];

**Ultimator**

Was gibts denn für nen Fehler?

**mirage228**

Hi

das ist nicht möglich
const Textfelder: array[0..9] of tcaption = (edit1.text, edit2.text, edit3.text, edit4.text, edit5.text, edit6.text, edit7.text, edit8.text, edit9.text, edit10.text); weil Delphi den Ausdruck der Konstanten (hier einer typsierten Konstanten) beim Compilieren auswerten können muss.

mfG
mirage228

**alcaeus**

Hallo DelphiStar,

kann sein dass ich mich irre, aber irgendwie sind edit1.text usw. keine Konstanten, oder?
Also, du könntest ja schreiben:

zufall := TEdit(FindComponent('Edit'+IntToStr(Random(10)+1))).Text; Greetz
alcaeus

**Delphi Star**

Danke

Problem mit Random und Strings

Problem mit Random und Strings

Re: Problem mit Random und Strings

Re: Problem mit Random und Strings

Re: Problem mit Random und Strings

Re: Problem mit Random und Strings

Forumregeln

Ultimator Registriert seit: 17. Feb 2004 Ort: Coburg 1.860 Beiträge FreePascal / Lazarus	#2 Re: Problem mit Random und Strings 1. Feb 2005, 14:24 Was gibts denn für nen Fehler? Julian J. Pracht
	Zitat

alcaeus Registriert seit: 11. Aug 2003 Ort: München 6.537 Beiträge	#4 Re: Problem mit Random und Strings 1. Feb 2005, 14:27 Hallo DelphiStar, kann sein dass ich mich irre, aber irgendwie sind edit1.text usw. keine Konstanten, oder? Also, du könntest ja schreiben: zufall := TEdit(FindComponent('Edit'+IntToStr(Random(10)+1))).Text; Greetz alcaeus Andreas B. Die Mutter der Dummen ist immer schwanger. Ein Portal für Informatik-Studenten: www.infler.de
	Zitat

Delphi Star Registriert seit: 4. Apr 2004 432 Beiträge Delphi 2005 Personal	#5 Re: Problem mit Random und Strings 1. Feb 2005, 14:31 Danke Real programmers code in binary SwapIt: Punkte
	Zitat