Teilstring im Stringgrid suchen und ersetzen

[Budda]

Hallo,

ich hatte hier letzte Woche schon den Tipp bekommen das ich einen Teilstring in einem Stringgrid in einer bestimmten Spalte folgendermaßen ersetzen kann:

Delphi-Quellcode:

var 
   spalte : TStrings; 
begin 
  spalte := StringGrid1.cols[2];  // die 3. Spalte 
  StringReplace(spalte.Text,'grün','rot',[rfReplaceAll]) 
end;

Das Problem hierbei ist nur das nichts passiert, sprich der Teilstring wird nich ersetzt.
Konnte bisher aber keinen Fehler entdecken und die richtige Spalte ist es auch

Gruß
Budda

[Jasocul]

Du musst die Daten natürlich auch wieder ins StringGrid reinschreiben.

Delphi-Quellcode:

var 
   spalte : TStrings; 
begin 
  spalte := StringGrid1.cols[2];  // die 3. Spalte 
  StringReplace(spalte.Text,'grün','rot',[rfReplaceAll]) 
  StringGrid1.cols[2] := spalte;  // die 3. Spalte HIER
end;

alles ungetestet.

[Budda]

Hallo,

habe ich grade mal ausprobiert, er ersetzt aber leider noch immer nichts.

Gruß
Budda

[Hansa]

Steht da auch definitiv und genau "grün" drin ? Falls ja, wo hast du den Code hingepackt ?

[Mattin]

Zitat von Jasocul:

Du musst die Daten natürlich auch wieder ins StringGrid reinschreiben.

Delphi-Quellcode:

var 
   spalte : TStrings; 
begin 
  spalte := StringGrid1.cols[2];  // die 3. Spalte 
  StringReplace(spalte.Text,'grün','rot',[rfReplaceAll]) 
  StringGrid1.cols[2] := spalte;  // die 3. Spalte HIER
end;

alles ungetestet.

klappert das nicht so

Delphi-Quellcode:

  spalte := StringGrid1.cols[2];  // die 3. Spalte 
  spalte := StringReplace(spalte.Text,'grün','rot',[rfReplaceAll]) 
  StringGrid1.cols[2] := spalte;  // die 3. Spalte HIER

  Edit1.Text := StringReplace(Edit1.Text,'Edit1','ROT',[rfReplaceAll]) letzteres mit dem Edit klappert einwandfrei

[Budda]

Hallo,

wenn ich das so mache

Delphi-Quellcode:

spalte := StringGrid1.cols[2];  // die 3. Spalte 
  spalte := StringReplace(spalte.Text,'grün','rot',[rfReplaceAll]) 
  StringGrid1.cols[2] := spalte;  // die 3. Spalte HIER

bekomm ich beim compilieren nen Fehler Inkompatible Typen TStrings und String.


Gruß
Budda

[Mattin]

Zitat von Budda:

Hallo,

bekomm ich beim compilieren nen Fehler Inkompatible Typen TStrings und String.

Delphi-Quellcode:

  spalte := StringGrid1.cols[2];  // die 3. Spalte 
  spalte.Text := StringReplace(spalte.Text,'grün','rot',[rfReplaceAll]); 
  StringGrid1.cols[2] := spalte;  // die 3. Spalte HIER

[/delphi]

Gruß
Budda

Sorry, muss natürlich

spalte.Text := StringReplace(spalte.Text,'grün','rot',[rfReplaceAll]); heissen.

[Budda]

Hallo,

ah wunderbar. Das funktioniert so.

Jetzt wollt ich noch probieren in der gleichen Spalte an jeden String ein .jpg dran zusetzen, sieht wie folgt aus:

Delphi-Quellcode:

  
spalte := StringGrid1.cols[11];
spalte.text := (spalte.Text+'.jpg');
StringGrid1.Cols[11] := spalte;

Macht er nur nicht, hab ich was vergessen?

Gruß
Budda