【Delphi互換!?】FreePascal/Lazarus その2【GPL】

**デフォルトの名無しさん** · 2009/12/25(金) 02:46:18

（クロス）オープンソースコンパイラ FreePascal [i386/68K/PPC/ARM/SPARC]
http://www.freepascal.org/

オープンソース開発ライブラリ等 [IDE/GUI環境 Lazarus]
http://www.lazarus.freepascal.org/

FreePascal/Lazarusのメーリングリスト(Pascalにホエロ！)
ttp://www.freeml.com/lazarus

Q:これで作ったソフトは自動的にGPLになるの？

A:制限付き LGPL だから、自分が作ったソースは GPL にする必要は無い
例え FreePascal 付属のライブラリにリンクしていても GPL にはしなくて良い
http://www.freepascal.org/faq.html#general-license

**デフォルトの名無しさん** · 2019/04/11(木) 14:15:28.19

FormatDateTimeとかでそもそも元号対応してるのWindows版だけなのな

**デフォルトの名無しさん** · 2019/04/11(木) 14:15:46.53

滅多に使うことはないだろうけど

**デフォルトの名無しさん** · 2019/04/13(土) 10:08:17.34

たいてい西暦しか使わないね。お役所の書類で仕方なくって感じかな。

**デフォルトの名無しさん** · 2019/04/17(水) 20:50:39.15

Lazarus Release 2.0.2 - April 16, 2019, 10:34:02 am

**デフォルトの名無しさん** · 2019/05/07(火) 22:10:10.01

久しぶりにLazToApkをバージョンアップしたら、ビルドの仕方が変わっていて使い方がわからず撃沈。
OldVersionもHPにないし困ったなあ。
昔のファイルがあればいいけどなあ、ハードディスク内を探してみるか。

**デフォルトの名無しさん** · 2019/05/07(火) 23:08:19.13

困ったなあ（ﾁﾗｯ）

**デフォルトの名無しさん** · 2019/05/08(水) 00:53:50.31

svnで好きな時点のソース落とせよ

**デフォルトの名無しさん** · 2019/05/09(木) 07:23:31.91

この機会に手動ビルドを研究したほうがよい。
最近やってないけど大した手間じゃない。

**デフォルトの名無しさん** · 2019/05/09(木) 07:27:45.97

巷によくある、 C++ で作った .so ファイルを apk にする手順を
Laz で作った .so ファイルと読み替えるだけ。

**デフォルトの名無しさん** · 2019/06/17(月) 21:13:48.03

久々に使い始めたんだけど、ブレークした時にクラスのインスタンスの内部データって見られないんだっけ？
Integer とかの単純な変数は見られるんだけど、例えば TStringList のインスタンスに登録されてる文字列とか。
昔作ったプログラムを見てるんだけど、どうやったか覚えてない。

**デフォルトの名無しさん** · 2019/06/19(水) 05:02:36.99

【出資】松本卓朗人工知能詐欺【注意】
https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/

**デフォルトの名無しさん** · 2019/07/02(火) 18:35:04.45

TpairSpitterの境界線の上に文字を置きたいのですが、どうしたら良いでしょうか。
境界線のつまみを隠したいのと文字を置きたいのが理由です。
アイデアをください。

**デフォルトの名無しさん** · 2019/07/05(金) 08:04:30.82

>>835
TLabelでなくTStaticTextでとかそいうこと？

**デフォルトの名無しさん** · 2019/07/05(金) 21:07:04.96

>>836
labelでもpanelでもいいんだけど境界線の上に置きたい。
置こうとしても、隠れてしまって前面に出せないのでどうしたらいいかわからない。

**デフォルトの名無しさん** · 2019/07/05(金) 21:28:30.42

当てずっぽうだけどParentをTpairSpitterにすれば実行時には上になる？ならないか？

**デフォルトの名無しさん** · 2019/07/06(土) 09:03:58.53

>>838
コンポーネントを継承してTMyPairSplitterみたいなもの作って
描画部分に手を加えたほうが応用も効くしソースもスッキリすると思う。

**デフォルトの名無しさん** · 2019/07/31(水) 06:40:26.15

Lazarus 2.0.4 - July 25, 2019, 12:17:38 pm

**デフォルトの名無しさん** · 2019/07/31(水) 07:36:45.82

>>840
be planning やん。
be planning は便利でよく使う構文だからきっちり使えるようにしといたほうがいい

**デフォルトの名無しさん** · 2019/07/31(水) 21:43:24.03

>>841
ごめんなさい。寝ぼけてましたw
リリースされたと思って書き込んでしまったorz

**デフォルトの名無しさん** · 2019/08/11(日) 06:58:29.91

Lazarus Release 2.0.4 - August 06, 2019, 03:13:13 pm

**デフォルトの名無しさん** · 2019/08/19(月) 08:03:02.74

FPC 3.2 は2019年度末予定っぽい

**デフォルトの名無しさん** · 2019/11/02(土) 17:36:12.44

Lazrus Release 2.0.6 - November 01, 2019, 12:33:13 pm

**デフォルトの名無しさん** · 2019/11/03(日) 22:59:45.28

JVCLってインストールできますでしょうか？

**デフォルトの名無しさん** · 2020/02/27(木) 21:04:57.36

最近Lararus使い始めたんですが、普通に使えるのでびっくりしました。
Delphiで演算子オーバーロードとか使いまくってるソースも問題ないし。
演算子オーバーロードなんて昔は「ソースが一読ではわかんなくなるから反対」なんて思ってたのに。

**デフォルトの名無しさん** · 2020/03/02(月) 07:51:50.68

文字コードUTF8が標準なのでむしろDelphiより使いやすいと思いますよ。

**デフォルトの名無しさん** · 2020/03/06(金) 07:12:08.75

作ったexeが20メガ超えててなんだかなぁ～とおもた

**デフォルトの名無しさん** · 2020/03/06(金) 10:30:39.19

C#ですら数kbだからな
どうせ要らんもんリンクしてるんだろ

**デフォルトの名無しさん** · 2020/03/06(金) 19:54:28.29

C#は知ってても.NET Frameworkは知らなさそう

**デフォルトの名無しさん** · 2020/03/06(金) 21:40:12.67

乱多忌む

**デフォルトの名無しさん** · 2020/03/06(金) 22:00:00.90

デバッグ情報含んでるからストリップとスマートリンク有効にしろって昔からマニュアルに書いてあるぞ
UPXまでは別にやらんでもいいと思う

**デフォルトの名無しさん** · 2020/03/06(金) 22:49:36.02

もうこの時代に20メガとかどうでもよくない

**デフォルトの名無しさん** · 2020/03/07(土) 18:19:17.95

ktkr
https://srad.jp/story/20/03/06/1237211/

**デフォルトの名無しさん** · 2020/03/07(土) 19:35:21.43

>>849
小さくする設定もある。
コンパイルしたソフトを小さくするソフトもある。

**デフォルトの名無しさん** · 2020/03/07(土) 19:47:00.25

Lazarus 側の言い分としては、最初からいろいろリンクしてるから、
これ以降機能追加してもサイズの増加は緩やかということらしいけど、
使いもしない機能リンクしないでほしいわな。

**デフォルトの名無しさん** · 2020/03/18(水) 16:54:18.85

使いもしない機能はリンクしないよ。
ソースプリーズ。

**デフォルトの名無しさん** · 2020/03/18(水) 23:29:19.07

>>858
https://wiki.freepascal.org/Lazarus_Faq/ja
どうしてコンパイル後のバイナリがこんなに大きいの？

**デフォルトの名無しさん** · 2020/03/24(火) 05:32:35.18

>>859
書き方（翻訳の仕方？）のせいかもしれんが、使うからこそ組み込まれるのだよ。
コマンドラインアプリや、Windows API で自前のメインウィンドウだけしかないような
アプリを作って試してみればわかるが数キロバイトになる。

**デフォルトの名無しさん** · 2020/03/24(火) 07:50:05.21

英語版見てみてみましたが、最新版はかなり内容が違う気がします。
英語版を参考にしたほうが良いと思います。

**デフォルトの名無しさん** · 2020/03/30(月) 20:53:33.92

FPC 3.2.0 rc1 始まったで
ttps://forum.lazarus.freepascal.org/index.php/topic,49110.0.html

**デフォルトの名無しさん** · 2020/03/30(月) 20:59:52.63

>>862
FPCて何？

**デフォルトの名無しさん** · 2020/03/30(月) 21:35:58.65

>> 863
Free Pascal Compiler

**デフォルトの名無しさん** · 2020/03/30(月) 22:55:15.59

>>864
ありがとう

**デフォルトの名無しさん** · 2020/04/03(金) 07:39:20.81

今月新しいバージョンが出っぽいね
We are planning the next release: Lazarus 2.0.8 - April 02, 2020, 10:43:37 am

The Lazarus team has scheduled
Lazarus 2.0.8 for April 2020 (estimated 14th to 20th)

**デフォルトの名無しさん** · 2020/04/03(金) 07:51:25.94

コンパイラは3.0.4のままだけどね
FreePascalのリリースがまだかかりそうだから急遽決めたようだね
本来なら次はLazarus 2.2の予定だったみたい

**デフォルトの名無しさん** · 2020/04/16(木) 19:40:21.03

Lazarus 2.0.8 リリースされたよ

**デフォルトの名無しさん** · 2020/04/17(金) 20:44:07.94

何が変わった？

**デフォルトの名無しさん** · 2020/04/18(土) 12:59:34.39

>>855
外字って、Unicodeにも私用領域ってあるよな。まああくまでも私用領域であって
外字専用に使うための領域ってわけではないが、そう使っても良いんだよな。

**デフォルトの名無しさん** · 2020/06/10(水) 17:57:11.63

画面拡大してるとHI-DPI有効にしないとダイアログがでかくなるんすね。
はまりましたわ。

**デフォルトの名無しさん** · 2020/06/26(金) 22:59:51.25

しらんまにFPC3.2出てましたね。Lazarusの先っちょも3.2対応だとか！

**デフォルトの名無しさん** · 2020/06/26(金) 23:02:47.90

Lazarus2.0.10も7月には出るとか。

**デフォルトの名無しさん** · 2020/07/08(水) 16:42:25.19

FPC3.2はDynamicArrayに大分手が入ったみたいなので、この機会に不定長のビットマップ作成の
手持ちライブラリ書き換えてみるかな。
というか素直にFCL使えって話だが、FCLってFPCのコマンドラインアプリでも使えるの？

**デフォルトの名無しさん** · 2020/07/08(水) 23:32:55.82

今の１個前のバージョンでLazarus&FPCの現状はどんなもんかと以前試してみたけど
10年前のDelphiにも遠く及ばない出来だったな
コンパイル速度、デバッグモードの開始、終了が遅く（終了からIDEの切り替えが特に遅い）
フォーム無しのプログラムでメッセージダイアログを出すとコマンドプロンプト画面が出る始末
今も改善されていないんだろうなぁ

**デフォルトの名無しさん** · 2020/07/09(木) 22:35:37.41

ソースコードもあるし、別に本家にご注進してもいいじゃん。
なんでそこで終わらなくても良くない？

**デフォルトの名無しさん** · 2020/07/11(土) 06:48:10.64

2.0.10 アナウンスはまだだけどsouceforge で公開されたね

**デフォルトの名無しさん** · 2020/07/13(月) 19:02:02.10

Lazarus Release 2.0.10 - July 11, 2020, 10:55:58 am

もうリリースされたって書き込まれていたけど一応。

**デフォルトの名無しさん** · 2020/07/25(土) 21:12:59.00

TMemo の表示領域を得たいのですが

var
R: TRect;
begin
R.Left := 0; R.Top := 0; R.Right: = 0; R.Bottom : =0;
Memo1.Perform(EM_GETRECT, 0, Longint(@R));
ShowMessage(Format('Left=%d, Top=%d, Right=%d, Bottom=%d', [R.Left, R.Top, R.Right, R.Bottom]));
end;

を実行すると Delphi 7 だと正しい値が得られるのに Lazarus 2.0.10 だと
Left=0, Top=0, Right=0, Bottom=0
になります。

正しい値を得る方法を教えていただけませんでしょうか。

**デフォルトの名無しさん** · 2020/07/26(日) 02:33:28.70

SendMessage(Memo1.Handle, EM_GETRECT, 0, Longint(@R));
でよさそう

**デフォルトの名無しさん** · 2020/07/26(日) 11:23:45.22

>>880
ありがとうございます。
早速試してみたところ上手くいきました。

**デフォルトの名無しさん** · 2020/07/28(火) 07:26:11.04

せっかくのオープンソースだし、
不具合っぽいのは本家に報告してあげるとよいよ

**デフォルトの名無しさん** · 2020/08/23(日) 00:18:52.03

Delphi6でさんざん書いてたのに長いことマイコンのほう（ArduinoやそのほかのC）ばっかりやってたからすっかりPascal忘れてるｗ
久々にPCのアプリ書こうと思っってLazarusはじめたらforやifですらあれどうだっけ？ってなってるよ

**デフォルトの名無しさん** · 2020/11/05(木) 00:09:00.98

TChartのチュートリアルを和訳してみたけどWikiに追加する方法がよくわからない

**デフォルトの名無しさん** · 2020/12/02(水) 23:28:05.83

FreePascalのXMLチュートリアル、サンプルのしょうもないミスを修正したいが
どうすりゃいいんでしょうか。
まぁPascal使うような極まりきった方々は別にミスあっても自分で修正するでしょうけど・・

**デフォルトの名無しさん** · 2020/12/02(水) 23:30:01.43

マルチスレッドでレイトレーシングアプリを書いたが、LinuxでもWindowsでも
普通に動くんでビックリしましたわ。
マルチスレッド絡みだからOSとかの癖とかで差異があって大変だと思ってたので。
ちゃんとライブラリで差異を吸収してんですねぇ。

**デフォルトの名無しさん** · 2020/12/02(水) 23:31:33.19

あまり大声で言うべきではないでしょうが、LazarusのGTK3サポート、
まだアルファ版というのがちょっと切ない。
自分の作るしょっぱいアプリだったらFreePascalのGTK3バインディングで
十分だろうからそっちから攻めるべきか。

**デフォルトの名無しさん** · 2020/12/23(水) 15:41:35.78

ざっくり調べるとQtバインディングの方はQt6が最新でQt5はサポートしているということか。
であれば現状自分のしょっぱいLinuxアプリはQt5バインディングにしといた方が
良いかもしんないにゃー。
別にGTK2でも全く問題ないのですが・・・・

**デフォルトの名無しさん** · 2020/12/23(水) 16:37:45.86

しかしGTK4が出てGTK2はEOLになった訳だが、ソースは公開されてるから永遠に使えるし、
別に自分の作るしょっぱいアプリなら見栄えとかも気にならない。
そりゃPython2が消えるのに時間かかるわけですわ。

**デフォルトの名無しさん** · 2020/12/25(金) 22:27:48.26

とりあえずlazbuildでlpiファイルを指定してやればコマンドラインでビルド出来るのが
わかった。
これで素直にemacsでのコーディングにチャレンジできますな。

**デフォルトの名無しさん** · 2021/01/04(月) 00:32:46.18

Lazarusからブランチされたと思しきCodeTyphon。
公式サイト見る限り、LazarusよりIDE環境は進んでそう。
https://www.pilotlogic.com/sitejoom/

**デフォルトの名無しさん** · 2021/01/04(月) 08:44:40.23

Lazarusはシングルウインドウになったらええのに

**デフォルトの名無しさん** · 2021/01/19(火) 14:59:49.28

FAQ見るとシングルウィンドウにするんだー、だからペインドッキングのパッチは
ノーセンキューなんて書いてあるのにねー。

GTK３サポート共々今どんな塩梅なんですかね。

**デフォルトの名無しさん** · 2021/01/19(火) 20:51:23.69

何を思ったかデスクトップPCをDebian/Linuxに、エディタはemacsでコーディングをしてる。
emacsのデフォルトはgnu-pascalサポートが入ってるのでObjectPascal拡張があると不便。
よくわからんまま、emacs delphi.elで検索かけてgithubにあるopacal.elを入れて
M-x opascal.elとしてみたら普通に動くようです。

そうまでしてなんでemacsで書かねばならんのかわからんのですが・・・

**デフォルトの名無しさん** · 2021/02/27(土) 11:50:38.32

Lazarus Release 2.0.12 - February 24, 2021, 09:03:56 pm

**デフォルトの名無しさん** · 2021/02/28(日) 23:10:14.65

あ、もう出てたんですね。
リリースノート見る限りバグフィックスが主体であんまし新機能はなさ気な雰囲気ですが
使ってみた方いかがでしょうか。

**デフォルトの名無しさん** · 2021/03/09(火) 15:37:27.70

windows10 で lazarus 2.0.12 を利用していますが、以下のようなコードの２か所で修飾子エラーになります
{MODE Delphi} なら大丈夫なのですが {$mode objfpc} の場合、どのように変更すればよろしいのでしょうか

type
PPHashItem = ^PHashItem;
PHashItem = ^THashItem;
THashItem = record
Next: PHashItem;
Key: string;
Value: Integer;
end;
TStringHash = class
private
Buckets: array of PHashItem;
protected
function Find(const Key: string): PPHashItem;
end;

function TStringHash.Find(const Key: string): PPHashItem;
var
Hash: Integer;
begin
Hash := HashOf(Key) mod Cardinal(Length(Buckets));
Result := @Buckets[Hash];
while Result^ <> nil do
begin
if Result^.Key = Key then <--- この部分が修飾子エラー
Exit
else
Result := @Result^.Next; <--- この部分も修飾子エラー
end;
end;

**デフォルトの名無しさん** · 2021/03/09(火) 18:54:46.70

Result^ を Result^^ にすればいいんじゃね？

**デフォルトの名無しさん** · 2021/03/09(火) 20:18:39.79

>>898
上手く行きました
ありがとうございました

**デフォルトの名無しさん** · 2021/05/22(土) 19:39:35.52

3.2.2リリースage

**デフォルトの名無しさん** · 2021/05/22(土) 22:29:54.34

まだ開発続いとったんかい

**デフォルトの名無しさん** · 2021/10/26(火) 21:43:41.35

Delphiのライセンス切れてるし、Community Editionは毎回新バージョンに更新しないといけないから
これを機にFreePascalにしてみるか
貧弱なIDEはVSCodeで補えそうだし

**デフォルトの名無しさん** · 2022/01/08(土) 18:10:12.68

Lazarus Release 2.2.0 - January 05, 2022, 11:57:19 pm

**デフォルトの名無しさん** · 2022/05/15(日) 19:08:49.28

program MyProgram(input, output);
のようにプログラム名にパラメーターが付いたコードを見かけました。
Pascalの方言なのでしょうか？
それともFree Pascalでも見られるものでしょうか？

**デフォルトの名無しさん** · 2022/05/22(日) 12:24:51.68

>>904
質問に質問で返してすみませんが、あなたは

void int main( int argc, char *argc[])
はｃの方言だと思いますか？
それともGNUCでも見られるものでしょうか

**デフォルトの名無しさん** · 2022/05/22(日) 13:54:17.54

void int mainってコンパイルエラーでは？

**デフォルトの名無しさん** · 2022/05/22(日) 22:03:25.27

>>906
しまった(苦笑

**デフォルトの名無しさん** · 2022/05/24(火) 12:07:51.00

Lazarus Release 2.2.2 - May 19, 2022, 09:26:08 am

**デフォルトの名無しさん** · 2022/05/26(木) 19:00:16.04

本家のForum にレジストしても確認メールが届きません。
どうしたものでしょうか。
迷惑メールとかも見ましたし再送信とかも試しましたががまったく来ません。

**デフォルトの名無しさん** · 2022/05/26(木) 19:36:53.93

抵抗されてるのかもね

**デフォルトの名無しさん** · 2022/09/30(金) 02:46:22.20

Lazarus Release 2.2.4 - September 28, 2022, 10:08:10 am

**デフォルトの名無しさん** · 2022/10/04(火) 15:58:36.29

Windowsアプリの速度は改善したの？

**デフォルトの名無しさん** · 2022/10/18(火) 09:21:39.14

Lazarus製のアプリケーションのexeのショートカットをつくって実行時の
大きさを最小化としても最小化で起動しないのだがどうすればいいのかな

**デフォルトの名無しさん** · 2022/10/19(水) 00:06:57.42

>>913
Delphi ではプロジェクトファイルをごにょごにょしてたので
Lazarus では多分 .lpr ファイルにごにょごにょ

Application.CreateForm(TForm1, Form1);
//ここに↓これを入れて判断
if CmdShow = SW_MINIMIZE then Application.Minimize;
Application.Run;

**デフォルトの名無しさん** · 2022/10/19(水) 09:56:54.13

>>914
あいにく動作しませんでした

メインフォームのOnCreateイベントハンドラーに
case CmdShow of
SW_SHOWMINNOACTIVE: WindowState := wsMinimized;
SW_SHOWMAXIMIZED: WindowState := wsMaximized;
end;
と書いたらうまくいきました

**デフォルトの名無しさん** · 2022/10/20(木) 08:50:49.47

AmazonにKindle本として佐々木優という人が書いたLazurus・Free Pascalのセルフ出版の
本が何冊かのっている（読み放題のKindle Unlimited対象）
役に立つかどうかは別にして日本語の本というのはめずらしいかも

**デフォルトの名無しさん** · 2022/10/20(木) 10:06:08.31

>>916
応援の意味で何冊か買いました。Unlimited もいつ対象外になるかわからんし。

**デフォルトの名無しさん** · 2022/10/22(土) 14:34:30.76

UbuntuでC++Builderを導入できなかったのでDelphiの本読んで勉強してます。

思い通りに動くと楽しいです。

**デフォルトの名無しさん** · 2022/11/15(火) 14:25:03.73

サンプルの xmlstreaming を参考にして設定を書き出す処理を作ってます。
TComponent を継承して設定データのクラスを作ろうとしているんだけど、
その中にさらに TComponent 派生クラスを入れ子にすると、その項目が書き出されない。
入れ子のクラスを TPersistent 派生にすると書き出されるんだけど、項目名が
ドットで区切られた形でかなり違和感。
xmlstreaming の中でコメントアウトされている Form (Self) を書き出す処理を有効にしてみると、
入れ子のデータは「children」タグに囲われていい感じで出力されているんだけど、
どうやればできるんでしょうか？

**デフォルトの名無しさん** · 2022/11/15(火) 19:22:03.37

>>919
下記を付け加えると入れ子のデータも書き出された
読み込みが正常に行われるかは検証してない

procedure TMyComponent.GetChildren(Proc: TGetChildProc; Root: TComponent); //override;
var
i: Integer;
begin
if Self = Root then begin
for i:=0 to ComponentCount-1 do begin
Proc(Components[i]);
end;
end;
end;

**デフォルトの名無しさん** · 2022/11/15(火) 21:41:42.06

Rootってなんだろう？と思って書いてたコードが入ってた

procedure TMyComponent.GetChildren(Proc: TGetChildProc; Root: TComponent); //override;
var
i: Integer;
begin
for i:=0 to ComponentCount-1 do begin
Proc(Components[i]);
end;
end;

**デフォルトの名無しさん** · 2022/11/15(火) 22:24:52.25

>>921
ありがとうございます。書き出せました。
wiki のストリーミングのところ読んでもそんなこと書いてなかったけどな。
TWinControl に実装されてるから Form ならちゃんと書き出されたんですな。
人をハメようとしてるとしか思えないな。検索しても、英語の情報でも全然ないし。
とにかく、ありがとうございました。

**デフォルトの名無しさん** · 2022/12/14(水) 20:13:02.80

これは壮観。過去50年以上にわたる「プログラミング言語の人気の変遷」をアニメで紹介するムービー【やじうまWatch】 - INTERNET Watch
s://internet.watch.impress.co.jp/docs/yajiuma/1463502.html

pascalって人気あったんだね