Deutsches Lazarusforum

Was ich vorhabe ist ein text zu parsen und immer die wörter rauszunehmen also zumbeispiel: Das ist ein test ob der parser den text richtig ... Das ist ein ist ein test ein test ob test ob der ob der parser .... und wenn so ein dreierblock mehr als einmal vorkommt soll die anzahl um eins erhöht werde...

Ich habs mit den standart einstellungen probiert und einmal mit opt level 4 + smart linking jeweils einmal mit und ohne debuggerinformationen.

trotzdem danke für deine hilfe euklid

nein läuft leider immernoch so langsam

Der code oberhalb incl schleife sieht so aus   if AnsiStartsText('!markov add ', Content) then begin s := Copy(Content, 13, length(Content)); //Lade text und zähle wörter Text := Loadfile('./markovtexte/' + s); Anzahl := Wordcount(Text); writeln(anzahl)...

es ist ein array of record und komplett leer zu anfang

Hallo liebe community, ich habe ein Problem mit einer whileschleife, nämlich das sie ultra langsam ist. //anzahl ist die anzahl der wörter im zu parsendem string while i < anzahl-1 do begin Prozent := step * i; sprozent := floattostr(roundto(prozent, -2)); writeln('[1 von 3 trage...

Wie schnell ist PS eig im vergleich mit anderen scriptsprachen. Und gibs nen weg die scripte zu profilen.

@theo
Da steht doch gelöst *pfeift unaufällig*

@warf
danke das frisst der kompiler jetzt.

@theo Das dieser fehler jetzt nicht mehr auftritt dafür ein anderer Irc.Say(Achannel, AUser + ': ' + PChar(numbers)); wirft: random.lpr(50,50) Error: Incompatible type for arg no. 2: Got "AnsiString", expected "PChar" habs sogar schon über eine zweite Varable prob...

@m.fuchs
Danke der Fehler tritt nun nicht mehr auf

Ja, schau bitte mal in den Source Code, da ist sicherlich einiges was man besser machen kann... Ich bin auch noch relativer anfänger kann zu dem code wrsl deshalb nicht alzuviel sagen, auch wenn ich mich mit Lazarus auch schon ne weile beschäftige, aber der Tag hat Leider auch nur 24Stunden, hat we...

Das wäre der komplette code library random;   {$mode objfpc}{$H+}   uses classes, sysutils, strutils, uPluginHeader in '..\uPluginHeader.pas'; var Irc: TIrcInterface;   function InitProc(uid: cardinal; version: Cardinal; IrcInterface: TIrcInterface; DoJoinProc: TDoJoinProc; DoPartProc: TDoPartPr...