diff --git a/mdl/m_strings.pas b/mdl/m_strings.pas index e10aa1a..f267925 100644 --- a/mdl/m_strings.pas +++ b/mdl/m_strings.pas @@ -273,7 +273,8 @@ Begin Count := 1; Temp := Str; - While Pos(Ch, Temp) = 1 Do Delete (Temp, 1, 1); + If Ch = ' ' Then + While Pos(Ch, Temp) = 1 Do Delete (Temp, 1, 1); While Count < Num Do Begin Start := Pos(Ch, Temp);