lazarus

    0熱度

    3回答

    少於1000的正整數有多少個數的總和等於6? 不知道如何開始使用帕斯卡。在Python上,我的腳本看起來像這樣: a = 1 b = 1000 for i in range(a,b): ........ 我不知道如何訪問數字。如果有人能夠擡頭,我應該可以從這裏取得一些進展。

    0熱度

    2回答

    我正在使用TProcess和this freepascal wiki頁面的建議讀取Lazarus中的大流程輸出數據。 維基頁面提示創建一個循環讀取過程輸出數據是這樣的: // ... If you want to read output from an external process, this is the code you should adapt for production use.

    0熱度

    1回答

    所以我是一個完整的編程新手,並且會讚賞任何幫助/「指向」正確的方向。如果沒有太多要求,那麼我會很感激,如果有人能真正發佈解決方案。 基本上,我正在創建一個子彈運動模擬器。該模擬器完美工作,但我有一個小問題:我需要在我的程序中連接的點數有所不同。目前,我只是使用巨大的數組大小(例如10,000)來進行補償。真的,我想要一個更乾淨的方式來做到這一點。現在我相信你們都在想:動態數組!但是,當嘗試使用動態

    -1熱度

    2回答

    我幾乎完成了我在FreePascal/Lazarus中的第一項偉大任務,但是這個問題一直困擾着我。 該程序需要打開一個特定的二進制文件(我們稱之爲Test.exe),從文件的開頭(例如2048字節)中刪除特定數量的字節並再次寫出。 Test.exe的大小會有所不同,但總是從頭開始刪除的字節數量保持不變。 在過去的幾天裏,我一直在BlodRead/Blockwrite和TMemoryStream上進

    -2熱度

    1回答

    我有一個名爲ListBoxPlayers的TListBox,我相信ListBoxPlayers.Items引用了TListBox中的TStrings列表。我正在嘗試使用this函數,但它似乎不起作用。有任何想法嗎? 編輯: 所以我試圖設置TListBox的大小取決於它將顯示多少個字符串。這裏是我的代碼: procedure TForm3.edtSearchChange(Sender: TObjec

    0熱度

    2回答

    我遇到了SHGetFileInfo問題。我使用FPC 2.6.2與拉撒路1.0.14,這裏是代碼: procedure x; var FI: SHFILEINFO; icon: ticon; begin SHGetFileInfo('app.exe', 0, FI, SizeOf(FI), SHGFI_SYSICONINDEX or SHGFI_ICON or S

    1熱度

    2回答

    我試圖讓一個小的測試程序來算多少次字母「A」出現在一個文本,而不使用字符串類型: program PascalTest; uses WinCrt; var a:integer; ch:char; begin a:=0; writeln('Input text: '); read(ch); while ch <>'.' do // '.' marking the end of te

    0熱度

    1回答

    在我的應用程序中的TStringList節省一些編輯值與下面的代碼: procedure TForm1.Button3Click(Sender: TObject); var F: TStringList; begin SaveDialog1.Filter := 'GPP files (*.GPP)|*.GPP'; if SaveDialog1.Execute th

    1熱度

    1回答

    我已經開發了兩個按鈕的任務1和任務2的兩個過程。你知道如何創建新的按鈕,它可以重複前兩個按鈕的過程來執行任務1 + 2分配次數?

    0熱度

    1回答

    在字符串編輯器中使用Lazarus IDE 1.014中的TAdsquery組件(11.1),並使用以下語法。只有在設計模式下並且設置爲活動狀態時,查詢才能在DBgrid中正常工作。它也適用於Advanatge Data Archetect。 但是,在編譯期間或編譯後嘗試從代碼中打開它,代碼或組件會給我一個'無法獲得句柄錯誤'。 (嘗試兩種方式)檢查所有的表,他們似乎確定。 (查詢中涉及4個表格)