equal
deleted
inserted
replaced
214 procedure SplitBySpace(var a,b: shortstring); |
214 procedure SplitBySpace(var a,b: shortstring); |
215 begin |
215 begin |
216 SplitByChar(a,b,' '); |
216 SplitByChar(a,b,' '); |
217 end; |
217 end; |
218 |
218 |
219 // should this include "strtolower()" for the split string? |
|
220 procedure SplitByChar(var a, b: shortstring; c : char); |
219 procedure SplitByChar(var a, b: shortstring; c : char); |
221 var i, t: LongInt; |
220 var i: LongInt; |
222 begin |
221 begin |
223 i:= Pos(c, a); |
222 i:= Pos(c, a); |
224 if i > 0 then |
223 if i > 0 then |
225 begin |
224 begin |
226 for t:= 1 to Pred(i) do |
|
227 if (a[t] >= 'A')and(a[t] <= 'Z') then |
|
228 Inc(a[t], 32); |
|
229 b:= copy(a, i + 1, Length(a) - i); |
225 b:= copy(a, i + 1, Length(a) - i); |
230 a[0]:= char(Pred(i)) |
226 a[0]:= char(Pred(i)) |
231 {$IFDEF PAS2C} |
227 {$IFDEF PAS2C} |
232 a[i] := 0; |
228 a[i] := 0; |
233 {$ENDIF} |
229 {$ENDIF} |