wie kann ich erreichen das die komplette stringgrid "durchcompiliert" wird und die leerzeichen gelöscht werden?
Delphi-Quellcode:
if rgmenue.ItemIndex = 0
then begin
PROBLEM 1
for i:= 0 to 1000 do //Komplett search_text in Zelle gelöscht ->beschleunigt abschnittsw. l.
begin
Position := 1;
S := sgfiles.Cells[0,1];
for zaehlen := 0 to length(S) do //search_text abschnittsweise löschen
begin
//Position des Search_Text ('_')
Position := GetPosNumX(Search_Text, S, Position);
//Löscht diese Stelle
Delete(S, Position, length(Search_Text));
PROBLEM 2
end;
sgfiles.Cells[0,1]:= S;
inc(a,i);
end;
///// Löschen
for i:= 0 to 1000 do
begin
Position := 1;
S := sgfiles.Cells[0,1];
for zaehlen := 0 to length(S) do
begin
Position := GetPosNumX(Search_Text, S, Position);
Delete(S, Position, length(Search_Text));
end;
sgfiles.Cells[0,1]:= S;
inc(a,i);
end;
problem1:
Es wird jeweils zuerst nur in der Zelle nach dem (Search_Text = '_') gesucht und dieser gelöscht. aber das passiert nur abschnittsweise. und nicht in der gesamten zelle komplett.
problem2:
wäre es besser eine replace-prozedur zur schreiben, um '_' durch '' zu ersetzen oder doch lieber bei meiner jetzigen variante und dann noch nach dem löschen ein leerzeichen dazuzufügen?