FindFirstで検索したテキストファイルをチャートにグラフ表示したいと考えております。
（テキストファイルには
0
1
2
3
4
といった感じで数値が羅列してあります）
FindFirstでファイル検索するところまではうまくいったのですが、
（検索結果をListBoxに表示させて確認）
その後のグラフ化させる際に、’ファイルがみつかりません’のエラー
が発生します。
var
SearchRec:TSearchRec;
F:TextFile;
Fname:String;
----------------------------
FindFirstでCドライブにあるファイルを検索する
ListBox1.Items.Add(SearchRec.Name); //ListBoxに表示
Fname:='C:\SearchRec.Name';
AssignFile(F,Fname);
Reset(F); ←ファイルがみつかりませんのエラー
グラフ作成、表示
----------------------------
'C:\SearchRec.Name'の部分が確実に間違っていると思われます。
この場合、どう直したらよろしいのでしょうか？
アドバイス頂ければ幸いです。
猫山さんこんにちわ。
TListBoxにファイル名が表示されているなら、
for I := 0 to ListBox1.Items.Count - 1 do
begin
Fname := ListBox1.Items[I];
AssignFile(F, Fname);
Reset(F)
try
while not EOF(F) do
begin
Readln(F, Buff);
{レコード処理記述}
end;
finally
CloseFile(F);
end;
end;
でいけると思います。
>Fname:='C:\SearchRec.Name';
を
Fname:='C:\' + SearchRec.Name;
にしたらどうなりますか？
pekesuke様、igy様
早速の回答、深謝致します。
＞pekesuke様
ご指示の内容で試しましたが、
Reset(F); ←ファイルがみつかりませんのエラー
が回避できませんでした。
頂いた指示に基づき、小生の方でもう少し試行錯誤したいとおもいます。
まずは、アドバイスありがとうございました。
＞igy様
Fname:='C:\' + SearchRec.Name;
にて、ファイルを認識しグラフ化が可能となりました。
初歩的なミスをしており、恥ずかしい限りです。