Ако имате нужда да се премахне двойните пространства или замени двойни пространства с помощта на един Delphi, можете да използвате следната функция:

• функция StringReplace (Конст SourceString, OldPattern, NewPattern низови ;. Знамена TReplaceFlags.). низ;

функция StringReplace замества първото или всички срещания на подниз в OldPattern SourceString NewPattern линия в съответствие с настройките на знамена. В резултат на функцията връща модифицираната низ.

Частично Flags могат да съдържат нито един, един или и двете от тези стойности:
• rfReplaceAll. Той замества всички срещания
• rfIgnoreCase. го взима под внимание при търсене

Тези стойности са дадени в скоби.

Пример заместване единични пропуски в двойна Delphi:

Var
преди, след. низ;
започвам
преди: ='Текстът, по който пространства са отстранени двойни с Delphi';
след: = StringReplace (преди, ' ', ' '[RfReplaceAll]);
ShowMessage (преди);
// Изходи: текста в които места се отстраняват двойни с Delphi
ShowMessage (след);
// изход: Текст, който премахва двойни пространства с Delphi
приключи; приключи;

За премахване на дублиращи се пространства в Делфи, можете да използвате следната функция:

Свързани статии

• Решението как да се отличи в цялата книга от 10 листа премахнете - двойни или повече пропуски в