|
いろいろありがとうございました。
とりあえず、以下のようにしてやってみました。
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;
とりあえず、目的は達せるようです。
|