Jak usunąć?

0

jak z 'litery' usunąć np. 'b' w trakcie wykonywania programu

litery: array[1..4] of String = ('a','b','c','d');

lub ja wylosować układ z 'litery' bez powtarzania się liter np. abdc lub badc

0

Wykluczenie b:
var
i : integer;
Literty : array[1..4] of string;
begin
for i:=low(Litery) to high(litery) do
if litery[i]='b' then
litery[i]:='';
end;

Losowanie dwóch róznych kombinacji :
var
i : integer;
Litery1, litery2 : array[1..4] of string;
begin
radnomize;
for i:=low(Litery1) to high(litery1) do
begin
:losowanie;
litery1[i]:=random(255);
litery2[i]:=random(255);
if litery1[i]=litery2[i] then
goto losowanie;
end;
end;

 --Pozdrowienia  {hello}  

Chodek ;)
Delphi 6

1 użytkowników online, w tym zalogowanych: 0, gości: 1