くじけそう・・・ (ID:652)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは、やっとDelphiの参考書も見つけ流し読みをしてみて、 「さて、コンソールアプリケーションとやらでも作ってみるか！」と思いがんばってみました。 しか〜し！あらまっ、エラーだらけ！！やっとここまで減らしましたがこの先進めません。誰かシロウトでも相手をしてくださる方、教えてください。 内容：テキストを読み込んで128ｂで区切るという単純なものです(^_^;) program chng; uses SysUtils; {$APPTYPE CONSOLE} var F1 : textfile; F2 : textfile; instr : string; outstr : string; begin begin outstr := ''; assignfile( F1,'aaa.txt' ); reset(F1); try while not eof(F1) do begin readln(F1,instr); while length(instr)>0 do begin outstr := outstr + leftstr(instr,128) + #13#10; instr := delete(instr,1,128); end; end; finally closefile(F1); end; begin assignfile(F2,'bbb.txt'); rewrite(F2); writeln(F2,outstr); closefile(F2); end; end. [エラー] chng.dpr(23): 未定義の識別子 : 'leftstr' [エラー] chng.dpr(24): 'String' と '関数、型無しポインタまたは型無しパラメータ' には互換性がありません [エラー] chng.dpr(36): レコード、オブジェクトまたはクラスのいずれかが必要です [エラー] chng.dpr(38): 'END' が必要な場所に ファイルの末尾 があります win98se,Delphi6personal leftstr（）って使えないんですか？（んなわけないか...） ん？rewrite()ってデフォルトのrecサイズは128・・・？ もしかしてそのまま移し変えればできちゃうんですか？ くだらない質問ですいません。