lazarus

    1熱度

    1回答

    我正在使用下面的代碼寫入一個現有的文件,但內容被追加。需要TFileStream選項來清空文件並覆蓋它? procedure TUtilitiesForm.btnSaveClick(Sender: TObject); var fs: TFileStream; begin fs := TFileStream.Create(FileNameEdit1.Text, fmOpenWrite)

    1熱度

    2回答

    我是Pascal編程新手。我一直在儘量接近在線教程。對於我的課程,我希望能夠從列表框1(一個國家)中選擇一個項目,並將結果(城市)顯示在列表框2中。我知道它在那裏可能是一個簡單的解決方案任何幫助表示讚賞。 procedure TForm1.ListBox1Enter(Sender: TObject); begin ListBox1.Items.Add('Americ

    -3熱度

    1回答

    我有問題使SQL請求 如 SELECT * FROM「用戶」 WHERE使用SqlQuery還拉撒路1 ,和的SqlTransaction時MySql55Connection.But取結果我「M試圖打開類SqlQuery( SqlQuery1.Open; )它會導致異常: Sql statement not set.

    0熱度

    1回答

    我想通過使用Synapse庫在TinyWebDB組件(AppInventor)中存儲一個值。我設法得到一個價值使用此代碼: procedure GetValue(Tag:String); var URL: string; Params: string; Response: TMemoryStream; begin Response := T

    0熱度

    1回答

    我在使用writeLn後在控制檯中看到了文本問題。 我的代碼: (...) procedure TTestApp.Run; var MyThread:TMyThread; begin writeLn('Start new program'); writeLn('Start new thread'); MyThread:=TMyThread.Cr

    0熱度

    2回答

    我要本地化的MesssageBox按鈕,MessageDlg,InputQuery等 我看到resourcestring在lclstrconsts存在這樣的:「OK」 /「取消」 ....但我想設置按鈕字符串使用asssignments。 怎麼辦? 我需要它在Win32上。我看到德國/羅斯OS顯示En按鈕。

    2熱度

    1回答

    這個單元測試用的Free Pascal 3.0成功運行在Delphi模式: procedure TFreePascalTests.TestUTF8Decode; var Raw: RawByteString; Actual: string; begin Raw := UTF8Encode('關於漢語'); Actual := string(UTF8De

    0熱度

    1回答

    在OS X上使用結果+印的OpenSSL 我目前正在使用: OS X約塞米蒂10.10.5 最新印(10.6.2.0,下載2016年3月13日 - Indy10_5346.zip) 拉撒路1.4.4 最新的OpenSSL OpenSSL是更specificly: OpenSSL的-1.0.2g相應於家庭釀造CMD線接口 置於/usr/local/Cellar/openssl/1.0.2/lib/

    1熱度

    2回答

    我正在創建一個程序,它可以移動一組記錄並將這些學生記錄保存到一個文件中。 但是我現在希望將數據(StudentName,Class,Grade)重新加載到數組中,然後將它們顯示在另一個表單上的列表框中。 我嘗試了一些方法,但沒有成功。 這是寫在文件中的代碼: unit NewStudent; {$mode objfpc}{$H+} interface uses Classes

    0熱度

    1回答

    我已經編譯並安裝了來自CCR'playsoundpackage'的組件。我從組件文件夾中選擇演示項目並編譯它。 它可以在Windows下美好的,但在Ubuntu下的拉撒路12.04 32位(1.4.4,2.6.4 FPC)在調試模式下我有一個錯誤: Project PlaySound component demo raised exception class 'EProcess' with mes