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