Lines Matching refs:AStr
211 Function FillStr (AStr : String; Len : byte; Ch : Char) : String; in FillStr()
213 if Length (AStr) > Len then Exit;
214 while Length (AStr) < Len do AStr := AStr + Ch;
215 FillStr := AStr;
217 Function StrCut (AStr : String) : String; in StrCut()
219 while (Length(AStr) - 1 >= 0) AND
220 (AStr [Length(AStr)] in [#32,#9]) DO
221 AStr[0] := chr(Length(AStr) - 1);
222 StrCut := AStr;
224 Function CutStr (AStr : String) : String; in CutStr()
226 while (Length(AStr) - 1 >= 0) AND
227 (AStr [1] in [#32,#9]) DO
228 AStr := Copy (AStr,2,Length(AStr) - 1);
229 CutStr := AStr;