String in Spalte durch xxx ersetzen

[Klaus01]

Sascha, heute ist nicht Dein Tag, oder?

Delphi-Quellcode:

procedure ConvertStrings(sl:TStrings); 
var i :integer; 
begin 
  for i := 1 to Pred(sl.Count) do 
    begin
      if length(sl[i]) <= 3 then 
        begin 
          sl[i]:='kleiner als 3 Zeichen' 
        end 
      else 
        sl[i]:=copy(sl[i],1,length(sl[i])-3)+'xxx' 
    end;
end;

Grüße
Klaus

[edit] delphi tags vergessen