← ホーム

知財高裁

知財高判　平成21年12月21日

平成21年(行ケ)第10143号　審決取消請求事件

この判例について AI に質問

裁判所: 知的財産高等裁判所
裁判年月日: 平成21年12月21日（2009-12-21）
事件番号: 平成21年(行ケ)第10143号
事件名: 審決取消請求事件
裁判の種類・結果
判例集等: —
分野: 行政・知的財産・特許権・行政訴訟

原本PDF（裁判所）裁判所ウェブサイト

AI 要約AI

事案の概要

本件は、知的財産高等裁判所における審決取消請求事件であり、Delphiに関する技術的事項が争われている。
本文はDelphiの文字列型（TIntStr）や関数（IntStrAddPositive等）の説明が中心で、審決の内容や請求の趣旨は明らかでない。
本文が途中で終わっており、当事者の立場や紛争の経緯、請求額等の具体的な記載がない。

事案の概要・争点・判断などを表示

争点

本文に争点の記載がないため、特定できない。

結論

（本文に結論の記載なし）

AI が本文から作成した要約です。引用の際は本文をご確認ください。

Delphi Vol.15

string TIntStr

Windows Delphi

string TIntStr

string result

TIntStr Carry integer

calcResult

calcResult mod 10 string resultstring index

Delphi

TIntStr Integer

string TIntStr

string index

Delphi Object Pascal

Delphi

string

Delphi

Object Pascal

string TIntStr

string index

Delphi

Delphi Microsoft WindowsDelphi Object Pascal

Delphi

Delphi 2.0

Delphi

string string Delphi 1.0ASCII Delphi 2.0

var

Name: string 45 ;

string Delphi Object PascalDelphi string

string

label Edit

string string

TIntStr

type

TIntStr = string;

string

Delphi

Object Pascal string

Delphi

type type

type

= ;

TNamae

type

TNamae = String 20 ;

type Integer Real

var

AoyamaHikari: TNamae;

AoyamaHikari TNamae typeString

type Delphi

TIntStr

TIntStr string TIntStr

string

string index

TIntStr string Intstr 3string

index

Intstr 3

Intstr string

index Intstr 1 Intstr

2　Intstr 3

Intstr 1 Intstr n

Intstr string index

string index

string TIntStr

Delphi

TIntStr Integer

TIntStr

Int64 TIntStr TIntStr Int64Int64 Integer integer

TIntStr

Integer Integer

64bit

128bit 256bit... integerDelphi string

Delphi string

TIntStr string Intstr 3string

index

getdigit TIntStr Keta

Tdigit

Tdigit = 0..9;

function getdigit N:TIntStr;Keta:integer :Tdigit;begin

if Keta length N or Keta 1 then result := 0else result := StrToIntDef Copy N,length N -Keta+1,1 ,0 ;end;

IntStrAddPositive

IntStrDecPositive

result TIntStr =stirng =stringresult := InttoStr calcResult mod 10 + result;function IntStrAddPositive N1, N2:TIntStr :TIntStr; N1+N2var

i,calcResult,N1Length,N2Length:integer;Carry:Tdigit;

begin

result := '';

N1Length := length N1 ;N2Length := length N2 ;Carry := 0;

i:=1;

while i =N1Length or i =N2Length dobegin

calcResult := getdigit N1,i +getdigit N2,i + Carry;Carry := calcResult div 10;result := InttoStr calcResult mod 10 + result;Inc i ;

end;

if Carry 0 then result := Inttostr Carry + result;end;

IntStrAddPositive N1, N2:TIntStr TIntStr N1 N2N1 N2 N1

N2 TIntStr

N1 N2

Delphi

StrToIntDef

StringToIntDef StrToIntDefIntToStr

Delphi

Delphi string

string

label Edit

Delphi

Label

Edit string

string

Delphi Object Pascal

Delphi Object

Pascal

Object Pascal

string TIntStr

出典：裁判所ウェブサイト「裁判例検索」（https://www.courts.go.jp/hanrei/38286/detail7/index.html）。本文は同サイト掲載の判決書PDFからTaiLexi AIがテキスト化・整形したもの（正確な文言は原本PDFを参照）。判示事項・裁判要旨・参照法条は裁判所の公表どおり。