jak zrobic aby usunac z tablicy array[0..10000] of string ort! kawałki stringów gdzie jest powtórzona cyfra,
np:
1322454->132454
654474669->6547469
0
0
Pewnie nie o to chodzi ale ;p:
var T:array [0..1000] of String;
i:integer;
begin
for i:=Low(T) to High(T) do StringReplace(T[i],'654474669','6547469',Nie_Wiem_Jaki_4_Paramert);
end;