【Delphi互換!?】FreePascal/Lazarus その2【GPL】 (979ﾚｽ)

【Delphi互換!?】FreePascal/Lazarus その2【GPL】 http://mevius.5ch.net/test/read.cgi/tech/1261676778/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

897: デフォルトの名無しさん [] 2021/03/09(火) 15:37:27.70 ID:l78vZ82J windows10 で lazarus 2.0.12 を利用していますが、以下のようなコードの２か所で修飾子エラーになります {MODE Delphi} なら大丈夫なのですが {$mode objfpc} の場合、どのように変更すればよろしいのでしょうか type PPHashItem = ^PHashItem; PHashItem = ^THashItem; THashItem = record Next: PHashItem; Key: string; Value: Integer; end; TStringHash = class private Buckets: array of PHashItem; protected function Find(const Key: string): PPHashItem; end; function TStringHash.Find(const Key: string): PPHashItem; var Hash: Integer; begin Hash := HashOf(Key) mod Cardinal(Length(Buckets)); Result := @Buckets[Hash]; while Result^ <> nil do begin if Result^.Key = Key then <--- この部分が修飾子エラー Exit else Result := @Result^.Next; <--- この部分も修飾子エラー end; end; http://mevius.5ch.net/test/read.cgi/tech/1261676778/897

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.027s