Цитата:
|
Сообщение от Mp3
*Ужос...
Код:
Var B,old:ansistring; begin B:=(memo1.text); repeat old:=B; B:=StringReplace(B, #32#32, #32,[rfReplaceAll]); until B=old; memo1.text:=B; end;
где-то так...*
вот это не работает...но программа уже запускается)xd
|
Для очистки совести скописастил свой код и проверил - работает. |