LazarusとFree Pascalメモ

更新 掲示板トップ

[1]Tatsuya Sato◆OikIgfMabE
ID:iRRqqKfI
unit main;
{$mode objfpc}{$H+}
{$CODEPAGE UTF8}
interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, lazutf8;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Label1.Caption := IntToStr(UTF8Length(Form1.Label1.Caption));
end;

end.

UTF8の扱い方。{$CODEPAGE UTF8}指令は必要らしい。
そしてUTF8Lengthを使う場合には、lazutf8が必要。


2021/10/26(火) 09:31:20
[2]Tatsuya Sato◆OikIgfMabE
ID:iRRqqKfI
unit main;

{$mode objfpc}{$H+}
{$CODEPAGE UTF8}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, process;

type

{ TForm1 }

TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.Executable:= 'blender';
AProcess.Options := AProcess.Options + [poWaitOnExit];
AProcess.Execute;
end;

end.


外部プログラムの実行。wikiを見ながら試してみた。
AProcess.Parameters.Add('');
でパラメーターも渡せる


2021/10/26(火) 09:53:24
[3]Tatsuya Sato◆OikIgfMabE
ID:iRRqqKfI
タブの設定

ツール→オプション→一般→タブとインデント

タブ幅を2にして、スマートタブのチェックを外す。

これでタブを押した時タブ幅が2になります。

2021/10/26(火) 09:57:05
[4]Tatsuya Sato◆OikIgfMabE
ID:iRRqqKfI
ツール→オプション→キーマッピングで、ショートカットを見れます。

選択されたブロックをインデントはctrl + i
選択されたブロックをインデントの解除はctrl + u

Delphiだとshift + ctrl + i、shift + ctrl + uだったのと違いますね。
キーマップを変更すればDelphiと同じキーマップに出来ます。

いいですね。lazarus!!

2021/10/26(火) 10:24:57
掲示板トップ 全部
名前:
独自タグ
メッセージ:
/1000
画像:
※JPG・JPEG・GIF・PNGのみ(5000000バイト以内で4枚まで)
投稿パス:
PAGE BOTTOM