hedgewars/uUtils.pas
changeset 13094 c9cdbf630447
parent 12810 6023a4f06013
child 13317 092adcf707c5
equal deleted inserted replaced
13093:2b5314cc356c 13094:c9cdbf630447
   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}