名前
題名
▼ andyさん > いろいろありがとうございました。 > > とりあえず、以下のようにしてやってみました。 > > memo1のchangeに > with Memo1 do begin > j:=Perform(EM_LINEFROMCHAR, -1, 0); > aa:=Lines[j]; > z:=10; /桁数 > case ByteType(aa, z) of > mbLeadByte :begin > ja1:=copy(ab,1,z-1);ja2:=copy(ab,z,length(ab)-(z-1)); > end; > else begin > ja1:=copy(ab,1,z);ja2:=copy(ab,z+1,length(ab)-(z)); > end; > end; > Lines[j]:=ja1+#13#10+ja2; > end; > > とりあえず、目的は達せるようです。 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link