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

Wo automatisieren? In Excel? In Delphi?

In Delphi

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

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.

Ihr wollt mich heute ärgern

Ich blick bei diesem code nicht durch.

Erklär mir den bitte

Also in etwa so:

markieren

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

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

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)

Was mach ich jetzt falsch wenn eine zelle leer ist

zusammenfalten · markieren

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;

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.