String in Spalte durch xxx ersetzen

[SaFu]

Na irgenwie will das net wenn ich auf länger prüfe schreibt er überall leer rei

Delphi-Quellcode:

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