ladebalken beim laden von Wörterbuch

[Nicodius]

Tag leute


es gibt da so nen wettbewerb(bzw hats gegeben) und da mich das thema interessiert hat hab ich eine lösungsvariante eines teilnehmers von php auf delphi übertragen und experimentiere grade viel herum

es geht um wortmischmasch in normale setze umwandel also

aus

Farnz buat Msit wird Franz baut Mist.

funktioneiren tut das ganze per wörterbuch etc - aber ich werde den delphicode dann eh opensource posten.


und zwar ist das wörterbuch 100 kb groß udn muss mit explode in zwei listen gefüllt werden.

Delphi-Quellcode:

var i : Integer;
begin
  Virtlist := TStringlist.Create;
  Virtlist.LoadFromFile(ExtractFilePath(ParamStr(0))+ 'buch.txt');
  vlis := explode('*', Virtlist[0]);
  vlis1 := explode('*', Virtlist[0]); //vlis1 hat die korrekten werte;
  for i := low(vlis) to high(vlis) do
  begin
    vlis[i] := sortWirrWarr(vlis[i]);
  end;

ich würde gerne dem benutzer zeigen wie lange der vorgang noc hdauert - habe aber keinen blassen schimmer wie - und gefunden habe ich leider auch nichts(zwar gabs das mit ner imagevariante aber naja - das war mit einer schleife bei mir ist das problem dass das wirklich lange dieser explode code ist.

an threads habe ich scho ngedacht allerdings - ists das wert?


grüße Nico


ps.: bitte nicht die threadvariante jetzt als hauptvorschlag verwenden - ich komm mit dem thema einfach nicht zurecht und würdm ich freuen wenn ich heute ohen kopfzerbrechen das pogramm vollenden kann


grüße aus dem scönen österreich

Nico