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

名前

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

本文 解決済みでしたが、一応蛇足の補足を(^^ゞ >でも、36、38行目のエラーはそのまま残ってます。 begin、end の対応が間違ってたんでエラーになったんでしょうね。 まとめると以下のような… (見やすいように、先頭に全角スペースを入れました) -------------------------- 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; // LeftStr関数は、usesに StrUtilsを追加すれば使える instr := delete(instr,1,128); //Delete手続きは式で使えない。usesにSystemを追加する必要あり end; end; finally closefile(F1); end; begin //これは不要 assignfile(F2,'bbb.txt'); rewrite(F2); writeln(F2,outstr); closefile(F2); //これもtry..finally処理を入れた方が良い end; //これは不要 end; //これが足りない end. -------------------------