Delphi-Help

String > Array

Оцените материал
(1 Голосовать)


String > Array

Procedure AssignFixedString( Var FixedStr: Array of Char; Const S: String
);
Var
  maxlen: Integer;
Begin
  maxlen := Succ( High( FixedStr ) - Low( FixedStr ));
  FillChar( FixedStr, maxlen, ' ' ); { blank fixed string }
  If Length(S) > maxlen Then
    Move( S[1], FixedStr, maxlen )
  Else
    Move( S[1], FixedStr, Length(S));
End;

 

function StrToArrays(str, r: string; out Temp: TStrings): Boolean;
var
  j: integer;
begin
  if temp <> nil then
  begin
    temp.Clear;
    while str <> '' do
    begin
      j := Pos(r,str);
      if j=0 then
        j := Length(str) + 1;
      temp.Add(Copy(Str,1,j-1));
      Delete(Str,1,j+length(r)-1);
    end;
    Result:=True;
  end
  else
    Result:=False;
end;
Прочитано 8529 раз
Другие материалы в этой категории: « Массив в Delphi Array > String »

Авторизация



Счетчики