optimierung bei ersetzen in Richedit

[glkgereon]

hi

ich hab einen text in etwa diesem format:

Zitat:

abcde fghasd
sdgf sdgfkghsd sdahfksd

und will den in dieses format umwandeln:

Zitat:

hsdkfh sdhfkhsdkfh sdhfkjsdhfksah
sdgfjghsdf sdahfksahdf sadfhksadf

soll heissen: ich hab buchstaben/zahlenpäckchen, und will sämtliche überflüssigen leerzeichen entfernen

das wollte ich so machen:

Delphi-Quellcode:

for i:=1 to length(Richedit1.lines.text) do
   begin
   if Richedit1.lines.text[i]=' '
   then if Richedit1.lines.text[i+1]=''
        then Richedit1.lines.delete(i);
   end;

das if...then if...then statt if ... and ... then
hab ich aus schnelligkeitsgründen gemacht...

so müsste doch funzen, oder?

jetzt mein problem: bei einem langen text brauch der ziemlich lange, um zu überlegen, was jetzt richedit1.lines.text ist...

der hammer ist: der text auf den ich das anwenden will ist 400 Millionen Zeichen lang!!!

kann man das anders machen?

[yankee]

Delphi-Quellcode:

var start,Zeichen:integer;
begin
   start :=0;
   Zeichen:=RichEdit1.GetTextLen;
   repeat
   richedit1.SelStart :=richedit1.FindText(' ',start,zeichen,[stMatchCase]);
   richedit1.SelLength :=1;
   richedit1.SelText :='';
   inc(start);
   until start=zeichen
end;

Versuch's mal so. Naja, bei 400.000.000 Zeichen wird's mit Integer nicht mehr gehen (IntegerMax: 32767). Musst also LongInt nehmen, dass geht bis 2 147 483 647.

[woki]

Hi,

1. Was um Himmels Willen sind überflüssige Leerzeichen
2. Minimiere die Aufrufe von Lines.text
3. Schau Dir mal Stringreplace an

Grüsse
Woki

[glkgereon]

überflüssige leerzeichen: ich will das zwischen jedem pakjet an zahlen/zeichen genau 1 leerzeichen ist

mit selster, sellength seltext, ... hab ichs auch probiert, habs aber nicht hingekriegt...

@yankee
soweit istr weiss ist in d6 auf jeden fall integer immer ein longint....

[Christian Seehase]

Moin Yankee,

Zitat von yankee:

IntegerMax: 32767

Nein, integer ist bei einem 32 Bit Compiler 32 Bit gross mit Vorzeichen, und hat somit 2147483647 als Maximalwert.

[glkgereon]

wie ich schon sagte

[woki]

4. Integer: 32 Bit mit Vorzeichen: Empfehlung mal ein Blick in die Delphi Hilfe

ups, zu spät

[woki]

Zitat von glkbkk:

überflüssige leerzeichen: ich will das zwischen jedem pakjet an zahlen/zeichen genau 1 leerzeichen ist

Schon verständlicher,
Was ist mit zeilenendekennungen, oder besteht dein Lines nur aus 1 'Zeile'

Grüsse
Woki

[glkgereon]

ja, genau das kommt auch noch dazu, aber erst mal reicht mir das, aber hast du dafür schon ne lösung? *gier*, *haben*

[woki]

Nun, wenn es um Leerzeichen am Anfang oder Ende eines Strings geht, dann wäre Trim (siehe OH) die Anwort.
Und halt die lines von der 1. bis zur letzten damit bearbeiten (for schleife)