コンソールプログラムでpublicな変数を使うには？
解決基礎的な質問で恐縮なのですが、
コンソールプログラムにおいてpublicな変数は利用できるのでしょうか？
また利用できるとしたら、どのようにすれば良いのでしょうか？
試行錯誤しているのですが、エラーが返されるばかりです。
申し訳ありませんが、どうぞよろしくお願いします。
>publicな変数は利用できるのでしょうか？
コンソールのユニット全体で使用可能な変数ということでしたら，
例えば以下の様に var で変数の定義をすれば使えます．
program Console1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
S: String;
V: Integer;
begin
Writeln('Hello World !! ');
while True do begin
Readln(S);
//コンソール上で文字'A'を入力したら終了
if S='A' then exit;
Readln(V);
//123を入力したら終了
if V=123 then exit;
end;
end.
> コンソールのユニット全体で使用可能な変数
ユニットファイルからプロジェクトファイルの変数を参照できましたっけ？
どのユニットファイルからも見えるようにするには、宣言だけのユニットファイル
を作って、それを uses に加えるといいです。
> コンソールのユニット全体で使用可能な変数
失礼．間違えました．dprファイルの中の意味でした．
>ユニットファイルからプロジェクトファイルの変数を参照できましたっけ？
できませんね．
Mr.XRAYさん、りおりおさん
ご回答ありがとうございます。
何とかうまくできそうです。
申し訳ないのですが、もう一つお聞かせ願えますでしょうか？
コンソールプログラム内の一つの関数(function)から
別の関数を呼び出すことは可能でしょうか？
試してみたところ、
関数名が「未定義の識別子」というエラーが出てしまいました。
便乗質問で申し訳ないのですが、どうぞよろしくお願いします。
呼び出す関数は、呼び出す位置より前(上)に記述しましょう。
ころころさん
できました！
本当に助かりました。
いつもこの掲示板にはお世話になっています。
本当にありがとうございました。
すみません、なんか途中で名前が変わってました。
もろもろ＝ほろほろ
です。どうでもいいのですが、一応。
forwardつけるといい
function a:? ; forward;
...
function a:? ;
begin
end
| ツイート |  |