掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ダブルクォーテーシォンを削除したい (ID：49057)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
変更後のと比べると、ENCを使ってない、tryを使ってない とこくらいだと思います。 よろしくお願いします。 procedure FileGet(S:string); var FileName,InBuff:string; F:textfile; j,i:integer; begin FileName := S; if not FileExists(FileName) then begin showmessage(FileName+'が見つかりません'); exit; end ; AssignFile(F, FileName); Reset(F); i:=0; repeat inc(i); readln(F,InBuff); St1[i]:=Inbuff; filecut(5,inbuff); for j:=1 to 5 do St2[i,j]:=cutf[j]; until eof(f); StNo:=i; CloseFile(F); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.