Hallo,
ich suche und ersetze Text in einer Excel-Spalte mit folgendem Code:
Delphi-Quellcode:
Application.ProcessMessages;
for i := 0 to sl.Count-1 do
begin
Label6.Caption := IntToStr(i);
Label6.Refresh;
if sl[i] <> '' then
begin
arr := explode(';',sl[i]);
for j := 1 to 5324 do
begin
help := Sheet.Cells[j,13].Value;
help := StringReplace(help,arr[0],arr[1],[rfReplaceAll]);
Sheet.Cells[j,13].Value := help;
end;
arr := nil;
end;
end;
Beide Schleifen werden ca. 5300 mal durchlaufen. Wie kann ich da an der
Gechwindigkeit noch was drehen? (sl ist eine StringList)
Viele Grüße ...