pascal

3熱

1答えて

問題を示す最も簡単な方法は例です。コード： PROGRAM CONSTANTSTRING(OUTPUT); CONST C_MaxLength = 30; VAR small_string : VARYING[5] OF CHAR VALUE 'alpha'; PROCEDURE LocalProc( localstring : VARYING[C_MaxL

-3熱

1答えて

私はCRC-16/ARC Delphi（Pascal）関数を探しています

私はDelphi（Pascal）でCRC-16/ARC関数を探しています。バイト： 5a 02 20 70 11 15 20 26 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0

1熱

2答えて

Free Pascalは単独でプログラミング言語ですか？あるいは、パスカル開発をサポートするコンパイラだけ？

Free Pascalを検索したとき、私はひどく混乱します。 freepascal.orgは、さまざまなアーキテクチャのシステム上でPascal言語のコードをコンパイルするために使用されるコンパイラだと言います。しかし、Free Pascalプログラマーを探してオンラインで投稿した仕事はほとんど見つかりませんでした。これにいくつかの光を投げてください。前もって感謝します！

2熱

2答えて

^I in Pascalとは何ですか？

^Iと^Gは、パスカルプログラムではわかりません。ここ： const TAB = ^I; と WriteLn(^G, ' Error : ' , s, ' . ');

-2熱

1答えて

2番目のユニットはTImageを見つけません

私はいくつかの作業をlazarusで行い、私の手続きの1つは2番目のユニットで書かれていますが、最初にも使用されています。問題は、ユニット1に接続されたフォームからTImageにプロシージャを渡したいが、ユニット2は識別子 "TImage"を見つけることができないということです。 interface procedure Bewegen(Spieler:TImage); .. proce

1熱

1答えて

パスカルでターミナルをクリアする

ここからパスカルを使い始める。最初にターミナルウィンドウをクリアしてからユーザー入力を読み取る単純なプログラムを作成したかったのです。スクリーンをクリアするための検索の最初の結果は、ClrScrプロシージャを示しました。それを使用するとジョブは完了しますが、ClrScrにはCrtが必要なため、新しい問題が発生します。 Ctrl + Cを使用してプログラムを終了することはできません。オンラインで再度

0熱

1答えて

pngをwkhtmltoimage（パスカル）のc-bindingで保存することができません

4熱

1答えて

EAssertionFailedの絶対パスを相対パスまたはファイル名のみで削除または置き換えますか？

EAssertionFailedエラーメッセージの絶対パスを削除または置き換える方法はありますか？私はソースがコンパイルされた場所を間接的に明らかにし、その場所からメッセージを独立させないための全経路を含めたくありません。プロジェクトルートまたはDPRファイルへの相対パスまたはソースファイル名のみがエラーメッセージに含まれることが望ましいです。プログラム出力： EAssertionFailed:

0熱

2答えて

参照渡しはどのように機能しますか？

参照渡しは、主にポインタを使用する言語で視覚化が容易です。しかし、パスカルでは、ポインタがどのようにサブルーチンを引数として渡すのかほとんど見ることができません。例えばは： var a: array [0..2] of integer; i : integer; procedure swap(var x, y: integer); var temp: intege

0熱

1答えて

どのように妥当性を検証するinno setupの数字とテキストのみを編集しますか？

文字を数字に制限する方法はありますか？スペースを入れずに10にして、もう一度編集する方法はありますか？それは電話番号のために、そして名前にスペースを必要としません、それをする方法を考えていません。実装するためのいくつかの方法を試しても、動作しないコードを見つけましたここに私が見つけたものは何ですか？スペースがないため procedure TForm1.Edit1KeyPress(Sender: