lazarus

0熱度

1回答

我對pascal中fgl單元的TFPGMap有個疑問。此線程安全嗎？或者我必須使用關鍵部分？ var map:TFPGMap; begin map:=TFPGMap.Create(); (...) CS.Enter; map.Find('Key'); CS.Leave; 感謝您的回答！ :)

3熱度

1回答

如何FreePascal的執行/拉撒路一個cef3渲染進程處理程序在子進程

我想實現一個fpcef3渲染進程處理程序作爲子：以下設在fpcef3 github repo的例子中，我已成功地創建渲染過程的處理程序的子過程： Program subprocess; {$mode objfpc}{$H+} Uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}

0熱度

1回答

拉撒路帕斯卡爾 - 類方法無法存取權限我有帕斯卡 - 拉扎魯斯（Linux）的問題私有成員

：類方法不能存取權限的成員。這不是編譯器錯誤，而是運行時錯誤。（SIGSEV）欲瞭解更多信息：我使用Linux與最新的版本（16_4）和Lazarus帕斯卡（16.0）。我的系統類型是x86_64的代碼： unit compiler_code; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil

2熱度

1回答

拉撒路本地化/多個項目

我有一些德爾菲的經驗，我試圖與拉撒路建立一個項目，這對我來說是全新的。我想，我讀過提供拉撒路，翻譯/國際化/本地化的所有信息，但我無法找到我真正想要的。我一直在一個項目中使用3或4個EXEcutables，他們之間共享，相同的數據庫相同的接口（窗體繼承），常見的應用程序，設置，以及常見和相關的字符串。我不想有3個或4個不同的名字（每個EXE），它們之間有着相同的常見字符串.po文件。有沒有

0熱度

2回答

如何將消息從對象傳遞到Free Pascal中的另一個對象

我有一個表單，然後我有一個'TPageControl'對象（名爲'MyPages'）和一個'TButton'對象（名爲'MyButton'）在它上面設計時間。然後我有一個名爲'TTab'的新類，它擴展了'TTabSheet'。 'TTab'類有一個'TButton'對象作爲其成員變量之一，如下所示。 class TTab = class(TTabSheet) private m_bt

-1熱度

3回答

如何使數組值全部爲大寫字母lazarus

用戶通過InputBox將字符串值輸入到字符串數組中，一旦存儲值，我如何使所有字母僅成爲大寫字母，如下面的示例。這些值必須基本上覆蓋數組中的非大寫值，以便稍後可以在列表框中顯示它們。我知道我需要使用UpperCase函數，但似乎無法使它正常工作，因爲它再次顯示爲非大寫。這是我第一次嘗試使用數組和UpperCase函數，所以請很好。例如： '曲棍球'， '網球'， '足球' 爲 '曲棍球'， '

1熱度

1回答

使用FreePascal將AnsiString轉換爲Lazarus中的UnicodeString

我在這裏發現了類似的主題，但是他們都沒有解決我的問題，所以我在新線程中提問。幾天前，我改變了格式，我正在開發的應用程序的首選項從INI保存到JSON。我爲此使用了jsonConf單元。我用來在文件中保存鍵值對的代碼示例如下所示。 Procedure TMyClass.SaveSettings(); var c: TJSONConfig; begin c:= TJSON

0熱度

1回答

如何使用Lazarus將TFilestream保存到硬盤驅動器

我在更改某些值後保存xml文件時遇到問題。我使用的拉撒路1.6作爲IDE與FPC版本3.0.0 這裏是我的xml文件的結構，我用了這個帖子： <?xml version="1.0" encoding="UTF-8"?> <wbpickeys> <picture> <name>C:\IMG_1.JPG</name> <imagedate>p-06/04/2014 1

-2熱度

1回答

在列表框中顯示sprinit值的總數

我顯然是Delphi的新手，但我似乎無法想象這個簡單。我需要能夠點擊'每天總計'按鈕，這應該添加3個spinedit值，並將總數顯示在列表框中。

0熱度

1回答

如何使用for循環顯示2 spindit控件之間的所有數字Lazarus

我的問題是，我不能解決如何顯示2 spinedit控件之間選擇的所有數字。實施例： SedValue1 := 5 SedValue2 := 7 如何使用一個for循環來顯示數字5，6和7？我迄今爲止： for iCount := Value1 to Value2 do begin lstFORList.items.add('Digit number :'+IntToStr(i