改変、流用自由なソースを改造厨
ファイルを変換するやつから
変数を読ませるやつに改造しようと
してTFileStreamをTMemoryStreamに変更。
Ms.Writeのところで、TMemoryStreamとIntegerには
互換性がありません。というエラー
発生！どのように直せばいいのでしょう？

// Unicode(Big Endian)の文字列を読込みShift-Jisのテキストを返す
function LoadUniBi(const titleName: string; nagasa1: Longint): string;
var
Ms: TMemoryStream;
Sz, n: integer;
Pc: PChar;
Tc: char;
begin
Result := '';
Ms.Clear;
Ms := Ms.Write(string(titleName),nagasa1);
try
Ms.Position := 0;
sz := Ms.Size;
try
Pc := AllocMem(sz + 10);
Ms.Seek(0, soFromBeginning);
try
if Ms.Read(Pc^, sz) = sz then
begin
n := 0;
// WordのLow, Highを入替える(何て原始的な方法)
while n < sz do
begin
Tc := (Pc+n)^;
(Pc+n)^ := (Pc+n+1)^;
(Pc+n+1)^ := Tc;
Inc(n, 2);
end;
Result := WideCharToString(PWideChar(Pc+2));//先頭2byteをカッ
ト
end;
finally
FreeMem(Pc);
end;
except
raise Exception.Create('メモリを確保出来ませんでした.');
end;
finally
Ms.Free;
end;
end;