удалять лишние пробелы из строки

[eduard17]

нужно сделать программу которая будет удалять лишние пробелы из строки.
просто удалить пробелы из строки у меня получился такой код
While pos(' ',s)< > 0 do Delete(s,pos(' ',s),1);

Но как удалить только лишние?

[Google2010]

while pos('  '{два пробела},s)<>0 do delete(s,pos('  '{два пробела},s),1);

[Kotofff]

Функция оставляющая один заданный символ (удаляет повторения) :

function Q_KeepOneChar(const S: string; Ch: Char): string;
asm
        PUSH    ESI
        MOV     ESI,ECX
        TEST    EAX,EAX
        JE      @@qt
        MOV     ECX,[EAX-4]
        TEST    ECX,ECX
        JE      @@qt
        PUSH    EBX
        PUSH    EDI
        MOV     EBX,EAX
        MOV     EDI,EDX
        XOR     EDX,EDX
        MOV     EAX,ESI
        CALL    System.@LStrFromPCharLen
        MOV     EDX,EDI
        MOV     ECX,[EBX-4]
        MOV     EDI,[ESI]
@@lp:   MOV     AL,BYTE PTR [EBX]
        MOV     BYTE PTR [EDI],AL
        INC     EBX
        INC     EDI
        CMP     AL,DL
        JE      @@me
@@nx:   DEC     ECX
        JNE     @@lp
@@wq:   MOV     EAX,[ESI]
        MOV     BYTE PTR [EDI],0
        SUB     EDI,EAX
        MOV     [EAX-4],EDI
        POP     EDI
        POP     EBX
        POP     ESI
        RET
@@me:   CMP     DL,BYTE PTR [EBX]
        JNE     @@nx
        INC     EBX
        DEC     ECX
        JNE     @@me
        JMP     @@wq
@@qt:   MOV     EAX,ESI
        CALL    System.@LStrClr
        POP     ESI
end;

© Андрей Дрязгов, Сергей Щербаков

Используем :

Q_KeepOneChar(s, ' ');// удаляем все повторяющиеся пробелы оставляя по одному

[NiCola999]

и зачем тут асм ?=)

[eduard17]

Спасибо большое