freepascal

    0

    1答えて

    TEdit入力を読み込み、入力された単語が段落内で何回使用されたかを調べる方法を見つけようとしています。基本的にこのアプリケーションの動作は、1番目のテキストボックスにテキストを追加し、2番目のテキストボックスに選択したい単語を入力し、3番目のテキストボックスに新しい単語を入力すると、元のテキストが表示されます置き換えられた単語で最後のテキストボックスに追加されます。最終的なテキストボックスの下に

    1

    1答えて

    私はLazarusプログラムにTSQLite3DataSet機能を実装しようとしています。ここでMCVEを与えるためには、test.dbデータベースのSQLiteのテーブルです: CREATE TABLE "ttest" ( "ID" INTEGER PRIMARY KEY AUTOINCREMENT, "Data" INTEGER) TSQLite3Datasetインスタン

    -2

    1答えて

    私はパスカルでこのハングマンプログラムを書いてきましたが、私はこの問題をしばらくは見ていませんでした。私はもともと入力が\nであると思っていましたが、後でwrite()というビットがありましたが、そうではありませんでした。 aと入力すると何が起こるのでしょうか?それはループを通り抜けてすべてのことを行いますが、何も表示されず、新しい行の文字や目に見えないもので再び通り抜けます。私はguessが1文

    4

    1答えて

    私は、いくつかの機能にはFree Pascal Compilerが必要なRailsアプリケーションがあります。すべてがきれいなlocalyを動作させるが、私は今、これをHerokuに配備したい。そこにコンパイラをインストールする方法はありますか? EDIT: は私がthese stepsを試してみました。結果として、私はこれら2つのレポ(fpc files,my buildpack)を作成しました

    -1

    1答えて

    ファイルから255文字を超える行をパスカル単位で読み込もうとしています。私はそれをcharでchar型で読むことは許されません。私はfree pascal compilerの標準設定に接着しています。 これを達成するにはどうすればよいですか?それも可能ですか?私はblockreadを使うことについていくつかのヒントを読んだが、どのように手がかりを得るためにそれについての十分な情報を見つけることがで

    0

    1答えて

    私はDelphiで書いたクラスをLazarusに移植しようとしています。接続されたUSBデバイスを検出するには、WM_DEVICECHANGEが必要です。 Delphiで完全に機能していたのに、私のコンポーネントがWindowsのメッセージを受け取ることができません。 AllocateHwndがFree Pascalのプレースホルダであることを実感した後、私はLCLがその目的のために何をしているか

    -1

    1答えて

    私はパスカル(freepascal)で何かを定義しようとしています。あなたはパスカルでそれを行うことができますどのように #define REP(i,k) for(int i=0; i<k; i++) : は、C++のように、あなたは、変数は、このようなマクロを定義渡すことができますか? 私は{$MACRO ON}コマンドを最初の行に追加しました。その結果、通常の定義をエラーなしで実行すること

    1

    1答えて

    私は複数のことができるメニューを持っているこのパスカルアプリケーションに取り組んでいます。 私のプログラムのようなアルバムを入力して、現在のアルバムを上書きして編集しようとすると、画像のようにエラーが発生します。 警告以外のコンパイル時にエラーは発生していません: (100,9)警告:関数の結果変数は、ここで を初期化していないようだ私ですコード: program MusicPlayer; us

    3

    2答えて

    私はこのようなラザロWindowsプログラムでボタンのキャプションとしてTricolon Unicode文字#$ 205Dを割り当てるしようとしている: MyButton.Caption := #$205D; それは動作しますが、ボタンはTricolonの罰金を表示しますが、コンパイラの発します警告:「警告:データ損失の可能性があるUnicode定数キャスト」。 警告を削除するには、LCLコン

    0

    1答えて

    Indy TIdHTTPを使用して、クライアント側SSL証明書を使用してhttpsページを取得しようとしています。 コードが var IdHTTP1 : TIdHTTP; IdSSLIOHandlerSocket : TIdSSLIOHandlerSocketOpenSSL; begin try IdHTTP1 := TIdHTTP.Create(self);