String in Spalte durch xxx ersetzen

[taaktaak]

Also in etwa so:

Delphi-Quellcode:

procedure ConvertStrings(sl:TStrings);
var i, Current: integer; 
begin 
  for i := 0 to Pred(sl.Count) do s1[i]:=copy(s1[i],1,length(s1[i])-3)+'xxx'
end;

Geht sicherlich noch eleganter