Aloha
Ik heb er ff-tjes naar gekeken ...
Voor dat willekeurig vullen van coordinaten bestaat een relatief eenvoudige oplossing ...
Deze kan er zo uitzien ...
Code:
procedure TForm1.Button1Click(Sender: TObject);
const
maxLengte = 100;
maxAantal = 5;
indexAlfabet: array [0..25] of char = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h',
'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p',
'q', 'r', 's', 't', 'u', 'v', 'w', 'x',
'y', 'z');
var
x, // x-co?Ârdinaat
y, // y-co?Ârdinaat
i: integer; // teller
letter: char; // de letter
// array met aantal plaatsen
coordinaat: array [0..maxAantal-1] of string;
-begin
// initialisatie
for i := 0 to maxAantal-1 do
coordinaat[i] := '';
try for i := 0 to StrToInt(edit1.Text)-1 do
begin x := Random(maxLengte); // willekeurige x
y := Random(maxLengte); // willekeurige y
letter := indexAlfabet[Random(26)];
coordinaat[i] := letter + ' ' + IntToStr(x) + ',' + IntToStr(y);
showMessage(coordinaat[i]);
end;
except ShowMessage('Invoer is geen getal');
end;
end; // Button1Click
initialization
Randomize;
end. // unit1
Ik geef toe, dat stuk waar de letter bepaald wordt is niet erg fraai, maar ik wist op het korte tijdsbestek geen betere oplossing ...
Hopelijk kun je hier al wat mee ...
Als ik tijd heb dit weekend zal ik ook nog wel ff naar de rest kijken
Dit zal dan wel tussen 2 glazen bier door moeten gebeuren dus al te veel hoop moet je ook niet krijgen ...
Voor nu suc6 verder
en een fijn weekend ...
Peter
Bookmarks