Tablice

Witam
Czy ktos moze mi powiedziec jak usunac duplikaty w tablicy jednowymiarowej np tab:array[0..100] of string;

Pozdrawiam

Prościej zrobić to na TStringList, tam możesz sobie regulować czy mają być duplikaty czy nie.

fragment kodu BGLCMD :)
tam jest gdzieś to :))) przeistocz to ;P

for i4:=0 to dag-1 do
begin
form4.Memo1.Lines.add(basedir+'unpk3'+cale_do_optymalizacji[i4].texture+'.jpg');
end;
repeat
inc(xoxo);
for i5:=0 to form4.Memo1.lines.count-1 do
begin
s := lowercase(form4.Memo1.lines[i5]);
for i6:=i5+1 to form4.Memo1.lines.count-1 do
begin
s2 := lowercase(form4.Memo1.lines[i6]);
if s = s2 then form4.Memo1.Lines.delete(i6);//[i6] := '';
end;
end;
until xoxo = 3;
ssmap := true;
form4.Button2.click; //