くだすれDelphi(超初心者用)その47

くだすれDelphi(超初心者用)その47 at TECH

402:デフォルトの名無しさん
08/08/20 01:25:08
>>401
こんな感じかな
function WideIndexToAnsiIndex(const ws: widestring; index: Integer): Integer;
begin
　　if (Index < 1) or (Index > Length(ws)) then
　　　　Result := 0
　　else
　　　　Result := Length(AnsiString(Copy(ws, 1, index - 1))) + 1
end;

次ページ

続きを表示

1を表示