Lines Matching refs:AStr

215 Function FillStr (AStr : String; Len : byte; Ch : Char) : String;  in FillStr()
217   if Length (AStr) > Len then Exit;
218   while Length (AStr) < Len do AStr := AStr + Ch;
219   FillStr := AStr;
221 Function StrCut (AStr : String) : String;  in StrCut()
223   while (Length(AStr) - 1 >= 0) AND
224         (AStr [Length(AStr)] in [#32,#9]) DO
225     AStr[0] := chr(Length(AStr) - 1);
226   StrCut := AStr;
228 Function CutStr (AStr : String) : String;  in CutStr()
230   while (Length(AStr) - 1 >= 0) AND
231         (AStr [1] in [#32,#9]) DO
232     AStr := Copy (AStr,2,Length(AStr) - 1);
233   CutStr := AStr;