Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
25. Dez 2007
War auch nur gedacht, wenn einer über Wein8 keine arbeit hat. :wink:
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
25. Dez 2007
Wenn dann ist die Assembler Routine nur minimal schneller.
Als ich das mein (Ding) war nur ein dussliges Abfallprodukt, nach dem Motto schreib mal was rein ins Forum. Konnte ich nicht ahnen das dieses Tun eine solche Reaktion auslöst. Erst hatte ich dachte man macht mich hier nur dumm an.
Lob also allen die sich die Mühe gemacht haben, meinen Gedanken zu optimieren. Und ich habe sogar was...
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
24. Dez 2007
Opa - 00-00-00-156 - Ich x bin x der x schnellste x Hase x der der Welt
grenzgenger - 00-00-00-125 - Ich x bin x der x schnellste x Hase x der der Welt
DAX - 00-00-00-031 - Ich x bin x der x schnellste x Hase x der der Welt
----------------------------------------------------
Opa - 00-00-00-172 - Ich x bin x der x schnellste x Hase x der der Welt
grenzgenger -...
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
24. Dez 2007
if (I = 1) or (Result <> S) or (Result <>C)
So geht das ich gehe jetz auch ins Bett :mrgreen:
MFG
PS.: Kein Ergeiz, geht doch glatt Pennen. :corky:
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
24. Dez 2007
@ DAX
Immer noch richtig. C wird nicht genutzt. Du machst so alle doppelten Platt auch (z.B. ss) :wink:
MFG
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
24. Dez 2007
S:='xxDasxxxxxLebenx ist schön';
@DAX
S:='xxDasxxxxxLebenx ist schönxx';
Caption := ReduceMultiples(S,'x');//Erg ='xxDasxxxxxLebenx ist schön' (geht nicht)
Der Name ist schön. Und schnell ist die function ggf. auch nur NICHT RICHTIG
@grenzgaenger
Caption := ReplaceDChar(S,'x'); //Erg OK, und sieht schöner aus. Bin mir nur nicht sicher ob sie schneller als meine ist
Und der Name ist...
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
23. Dez 2007
Ich suche nicht ich schreibe es mir selber. :coder:
Was StringReplace macht ist mir (Jetzt) klar und auch wie er es macht.
Was ich brauchte, war eine >Einfache Funktion< Die alle doppelten Zeichen (die fortlaufend sind) löscht bis auf eines.
Das Problem war, dass ich in Dateinamen doppelte Leerzeichen (evtl. x Leerzeichen, fortlaufen) hatte. Ein Leerzeichen wollte ich aber erhalten. Und...
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
23. Dez 2007
Ja wirklich? Dann versuch das mal mit (xxDasxxxxxLebenx ist schön)
var
Flags : TReplaceFlags;
OK : boolean;
S : string;
begin
S:='xxDasxxxxxLebenx ist schön';{x = ggf. Leer-Zeichen}
Flags := ;
// S := StringReplace(S,'xx','x',Flags); // Erg = xDasxxxLebenx ist schön
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
23. Dez 2007
1: Der Name es viel mir nichts besseres ein. (Ist doch egal)
2: Der Try Except der kann weg (gestört hatte der aber nicht)
3 Wie die Helfen kann dann gib mal ein:
caption :=
_KillDoppelZeichenToZeichen(‚xxDasxlebenxxso schönxxxxseinxwennxesxnichtxxxxwelchexgebenxwürdexxxdiexxherummekelnxxmüssen.’,’x’);
Das Ding geht und fertig. Kannst den Mod sagen: Das Du es löschen möchtes und gut ist!
...
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Opa,
23. Dez 2007
Nach dem ich erkennen musste das <StringReplace> nicht immer richtig funktioniert
StringReplace(S,#32#32,#32) kommt es zu Fehlern.
Hier mal eine Lösung: (Uppercase habe ich weggelassen, ich brauche das nicht für mein PRG)
function KillDoppelZeichenToZeichen(S:string;C:Char):string;
var
I : integer;
begin
if Length(S) < 2 then
begin