Dacă aveți nevoie să eliminați spațiile duble sau să înlocuiți spațiile duble cu spații individuale folosind Delphi, puteți utiliza următoarea funcție:
- funcția StringReplace (const, SourceString, OldPattern, NewPattern, string, Flags, TReplaceFlags). șir de caractere;
Funcția StringReplace înlocuiește prima sau toate aparițiile substringului OldPattern din SourceString cu șirul NewPattern în conformitate cu setările de pavilioane. Șirul modificat este returnat ca rezultat al funcției.
-
Variabila Flags nu poate conține nici una, una sau ambele dintre aceste valori:
- rfReplaceAll. înlocuiește toate aparițiile
- rfIgnoreCase. ignoră caz în căutarea
Aceste valori sunt date în paranteze pătrate.
Un exemplu de înlocuire a spațiilor duble cu spații individuale în Delphi:
var
înainte, după. șir de caractere;
începe
înainte de:'Text în care spațiile duble sunt șterse folosind Delphi';
după: = StringReplace (înainte, ' '. ' ', [rfReplaceAll]);
ShowMessage (înainte);
// Output: Text în care spațiile duble sunt șterse folosind Delphi
ShowMessage (după);
// print: Text în cazul în care spațiile duble sunt eliminate folosind Delphi
se încheie; se încheie;