Jeg har et array som dette: Str_NewGame: Array [0..7] of Char;
Hvis jeg skriver "hei" i en TEdit, så vil jeg at det skal fylles ut i arrayet "hei" + 5x' '(hei + 5 mellomrom) hvis dere forstår? (Ja jeg vet at det er litt dårlig forklart, Sry.)
Hvordan gjør jeg dette?
Noget i stil med nedenstående burde virke:
<pre>
procedure FillArray(const s: string);
var
x: integer;
begin
for x := Low(Str_NewGame) to High(Str_NewGame) do
if x > Length(s) then
Str_NewGame[x] := ' '
else
Str_NewGame[x] := s[x];
end;
</pre>