freepascal

    0熱度

    1回答

    我試圖通過Indy TIdHTTP獲得客戶端SSL證書的https頁面。 代碼是 var IdHTTP1 : TIdHTTP; IdSSLIOHandlerSocket : TIdSSLIOHandlerSocketOpenSSL; begin try IdHTTP1 := TIdHTTP.Create(self); IdHTTP1.Request.B

    0熱度

    1回答

    我目前正在開發免費的Pascal程序。作爲編碼的一部分,我需要在If語句條件中訪問數組。例如,我使用類似下面的代碼: 如果(SumArray [S])> 0,(AverageArray [A])< 10然後... 此語法不工作。我需要正確的Free Pascal語法才能在If語句的條件中使用數組。謝謝。

    3熱度

    2回答

    這些功能是有用的: function MakeWord(low, high: char): word; begin result := byte(high) shl 8 + byte(low); end; function MakeWord(low, high: byte): word; begin result := high shl 8 + low; end;

    -1熱度

    3回答

    我做了一些搜索,說它存儲的價值不適合,但我不知道它是如何發生在我的代碼。我檢查了我的代碼很多次,但我仍然得到這個。我做了一些搜索,說它是存儲一個不適合的值,但我不知道它是如何發生在我的代碼中的。我檢查了我的代碼很多次,但我仍然得到這個。 program ACT2; uses crt; var inputs : array[1..5] of integer; index1

    1熱度

    1回答

    是否有將libc庫包含在Lazarus或Free Pascal編譯的二進制文件中的方法?我不想使用共享庫,因爲如果我用更新版本的Libc編譯我的應用程序,例如,它不適用於較舊的Linux。 我想這是因爲在終端顯示以下錯誤,當我在舊的Linux版本上運行我的應用程序: ./app:/lib64/libc.so.6:版本`GLIBC_2.14 '找不到(需要 ./app) 謝謝。

    0熱度

    1回答

    我想知道是否存在切片Array of AnsiString並返回Array of AnsiString的函數。 Copy函數返回Array of String,所以我碰巧在網上搜索另一個解決方案,但我找不到任何東西。 我們有解決方案嗎? 我正在使用Free Pascal。

    1熱度

    3回答

    我想要一個文本文件來顯示memo1中的內容,一旦我選擇了2個複選框。 我該怎麼做? 我試了下面的代碼,但我似乎無法得到它的權利。 if CheckBox1.Checked and CheckBox2.Checked then begin memo1.lines.LoadFromFile('files\RS.txt'); end; 我也希望能夠選擇複選框單獨像: (如果指出了這一點結合他們

    1熱度

    1回答

    在Arch Linux上,使用Lazarus 1.6.4,我試圖保持窗體的高度不變。 下面的代碼是一個小例子: unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; type { TForm1

    -2熱度

    1回答

    我正在尋找一個簡單/快速的方法來從字符串識別和提取主題標籤#標籤提取,並暫時單獨存放 - 例如: 如果我有以下字符串: 2017-08-31這是一個無用的句子作爲例子。 #例子#日期:2017-09-01 #NothingWow(然後更多的文字爲好措施)。 然後,我希望能夠得到這個: #Example #Date:2017-09-01 #NothingWow 我想將其存儲在的TString

    -2熱度

    1回答

    在互聯網上有類似或相同的問題,但答案不適用於我。我們開發了多平臺產品,它在Delphi的編譯器和FPC下編譯。 首先,我用: Uses: System.Character; 和 Character.TCharacter.IsLetterOrDigit(..) ,但它不能FPC下進行編譯,所以要根據其他來源,我用: Uses: Character; 和 TCharac