掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
数列の・・・・・ (ID：31683)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm7.Button1Click(Sender: TObject); var C: Cardinal; I: Integer; S: String; B: array[1..10] of Byte; //格納先の配列 begin C := 123456789; //元のシリアル番号 S := IntToStr(C); //文字列に変換 for I:=1 to Length(S) do begin B[I] := Ord(S[I])-48; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.