String in Spalte durch xxx ersetzen

[SaFu]

HI

Und zwar hab ich mal wieder folgende Frage.

Wie ersetze ich in einer bestimmten Spalte in einem StringGrid die letzten drei Zeichen durch xxx

in Excel habe ich es schon hinbekommen

=Links(O2;LÄNGE(O2)-3)&"xxx" wollte es jetzt aber mit einem klick Automatisieren??

Gruß Sascha

[taaktaak]

Wo automatisieren? In Excel? In Delphi?

[SaFu]

In Delphi

und dannach speicher ich das ganze als .xls was schon Teilweise funzt

[taaktaak]

Na, dann kannst du diese Prozedur von Deddy die wir heute Vormittag hatten entsprechend anpassen, eben nicht mehr die maximale Breite ermitteln, sondern die Stringsprüfen und ggf. die letzten 3 Zeichen ersetzen.

[SaFu]

Ihr wollt mich heute ärgern

Ich blick bei diesem code nicht durch.

Erklär mir den bitte

[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

[SaFu]

Das meine ich ja wo hole ich den TStrings her und Warum Pred(vorgänger)

[taaktaak]

Aufruf mit
ConvertStrings(StringGrid1.Cols[xx]);
mit xx = Spaltennummer, in der ausgetauscht werden soll

Pred(), weil die Indices mit 0 beginnen, das höchste Element hat dann den Index Count-1 und das ist das gleiche wie pred(Count)

[SaFu]

Was mach ich jetzt falsch wenn eine zelle leer ist

Delphi-Quellcode:

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

procedure TForm1.Button4Click(Sender: TObject);
begin
  ConvertStrings(StringGrid1.Cols[14]);
end;

[taaktaak]

Ich kann nichts falsches erkennen, ausser einem nicht notwendigem begin..end. Welches Ergebnis erwartest du denn? Wenn vorher nix in der Zelle war, sollte anschließend "leer" drin stehen.