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;