くじけそう・・・ (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・・・？
もしかしてそのまま移し変えればできちゃうんですか？
くだらない質問ですいません。

←解決時は質問者本人がここをチェックしてください。

戻る