Code beschleunigen

[Grolle]

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 ...

[stoxx]

StringReplace vom FastCode Projekt oder die JEdi Sachen sind auch schon schneller als Delphi ..

Eine Kopie sparen:

Sheet.Cells[j,13].Value := StringReplace(help,arr[0],arr[1],[rfReplaceAll]); das langsamste wird aber wohl der Excel Zugriff sein.

[Grolle]

Hi,

nein, ich ersetze einen String. arr ist ein dynamisches Array.

Viele Grüße ...

[mkinzler]

Ist Excel während des Vorgangs sichtbar?

[Grolle]

Im Moment schon. muss aber nicht!

[mkinzler]

Es sollte dann schneller sein.

[Grolle]

Hmm ich glaube ein par Sekunden bringt das schon. Ein Durchlauf der ersten Schleife dauert aber
immer noch ~ 24 Sek. Kann das sein?

[stoxx]

Zitat von Grolle:

Hmm ich glaube ein par Sekunden bringt das schon. Ein Durchlauf der ersten Schleife dauert aber
immer noch ~ 24 Sek. Kann das sein?

das label nur bei jedem 10. Durchlauf aktualisieren ...

[Grolle]

Hi,

das bringt mir nochmal ne Sekunde (Label Refresh ganz raus)!
Mann, da muss doch noch was gehen

[lbccaleb]

rausnehmen kannst ja dann auch noch arr := nil;
vllt bringt dir das auch noch mal nen wenig ein..