Wie kann ich denn eine Variable, die zZ. noch keinen Wert hat in einen String umwandeln, der in einem Array verwendet werden kann ?
Kannst du mir das nicht eventuell am Quellcode zeigen?
Könnte das nicht eventuell so aussehen ?
Code:
function Zufallskarte(Von, Bis: Integer): Integer;
var
i,i2: byte;
variabelspeicher: array [1...15] of string;
begin
Result := Random(Succ(Bis - Von)) + Von;
variabelspeicher[1]:= '<Karte1>';
variabelspeicher[2]:= '<Karte2>';
variabelspeicher[3]:= '<Karte3>';
variabelspeicher[4]:= '<Karte4>';
variabelspeicher[5]:= '<Karte5>';
variabelspeicher[6]:= '<Karte6>';
variabelspeicher[7]:= '<Karte7>';
variabelspeicher[8]:= '<Karte8>';
variabelspeicher[9]:= '<Karte9>';
variabelspeicher[10]:= '<Karte10>';
variabelspeicher[11]:= '<Karte11>';
variabelspeicher[12]:= '<Karte12>';
variabelspeicher[13]:= '<Karte13>';
variabelspeicher[14]:= '<Karte14>';
variabelspeicher[15]:= '<Karte15>';
for i:=1 to 10 do
for i2:=1 to 10 do
if i2<>i then
if variabelspeicher[i] = variabelspeicher[i2] then
Result := Random(Succ(Bis - Von)) + Von;
end;
LG