String in Spalte durch xxx ersetzen

[SaFu]

ja das tut es aber nicht es stehen immernoch drei xxx drin??

[Klaus01]

sl[i]:=copy(sl[i],1,length(sl[i])-3)+'xxx' copy liefert einen LeerString zurück und es werden drei x angehangen.

Vielleicht solltest Du vorher prüfen ob der String auch mehr als 3 Zeichen beinhaltet.

Grüße
Klaus

[SaFu]

Das mach ich doch ich prüfe vorher ob ein leer string vorhanden ist wenn ja soll er leer reinschreiben

[DeddyH]

Du musst prüfen, ob der String länger ist als 3 Zeichen, Du löschst ja schließlich auch 3 Zeichen raus.

[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;

[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

[DeddyH]

Wieso fangt Ihr eigentlich bei 1 an, hab ich was übersehen?

Zitat:

for i := 1 to Pred(sl.Count) do

[taaktaak]

Ja Kruzifix, Sascha!

Die Behandlung auf <=3 Zeichen muss natürlich in den else-Zweig.

Zunächst muss du aber einmal die Anforderung definieren: Was soll den geschehen, wenn der String nur aus 3 oder weniger Zeichen besteht?

[Klaus01]

Zitat von DeddyH:

Wieso fangt Ihr eigentlich bei 1 an, hab ich was übersehen?

Zitat:

for i := 1 to Pred(sl.Count) do

Vielleicht hat er ja eine FixedRow definiert.
Grüße
Klaus

[taaktaak]

Hihi, gute Frage!
Zunächst hatten wir bei 0 begonnen, im Laufe des Gefechts hat sich da aber 'ne 1 eingeschlichen...

// edit: Autsch!!! - Die Hitze!!!!