Einzelnen Beitrag anzeigen

janjan

Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
 
Delphi 4 Standard
 
#4
  Alt 21. Jan 2003, 19:14
Zitat von MadMason:
wird dir aber wohl nichts anderes übrigbleiben
(verbessert mich wenn ich mich irre) aber ein anderer weg als "per hand" ist mir nicht bekannt
Delphi-Quellcode:
for i:= 0 to Length(array)-1 do begin
 for i2:= 0 to Length(array)-1 do begin
  if array[i2] = array[i] then begin
   //tu was
  end;
 end;
end;
ich würds eher so machen
Delphi-Quellcode:
for i:= 0 to Length(array)-1 do begin
 for i2:= [color=#f60000]i[/color] to Length(array)-1 do begin
  if array[i] = array[i2] then begin
   //tu was
  end;
 end;
end;
  Mit Zitat antworten Zitat