Доступ к файлам в Delphi

[Николай ПН]

Товарищи, как сделать так, чтобы из файла, в котором через промежуток равный char(9) или любой другой расположены числа,можно было бы построить график?

[danekne]

Графики из файлов не строятся... Графики строятся по значениям функции

[Stilet]

Николай ПН

А какого типа файл? как содержимое выглядит?

[-Flover-]

если файл состоит из цифр, то можно их считать )) как например из текстового файла, считывается символ, присваивается переменной через StrToInt и она уже заносится в график дальше как делать сказать не могу, не работал ещё с графиками ))

[Николай ПН]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
TForm1 = class(TForm)
Button1: TButton;
Chart1: TChart;
Series1: TBarSeries;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ForA1: textfile;
cas : string;
k,i: integer;
begin
cas :=FormatDateTime('yyyy', Now)+'.'+FormatDateTime('mm', Now)+'.'+FormatDateTime('dd', Now)+'-'+FormatDateTime('hh', Now)+'.'+FormatDateTime('nn', Now)+'.'+FormatDateTime('ss', Now)+'\';

CreateDir(cas);

AssignFile(ForA1,cas+'\ForvacuumA1. txt');
if not FileExists('ForvacuumA1.txt') then
begin
rewrite(ForA1);
CloseFile(ForA1);
Append(ForA1);
WriteLn (ForA1,'#'+char(9)+char(9)+'1'+char (9)+'2'+char(9)+'3'+char(9)+'4'+cha r(9)+'5'+char(9)+'6'+char(9)+'7'+ch ar(9)+'8'+char(9)+'9'+char(9));
WriteLn (ForA1,' ');
closeFile(ForA1);


for k:= 0 to 10 do
begin
series1.AddXY(k,0);
end;
for i:=5 to 10 do
Series1.YValues.Value[i]:=sin(i*pi/10);
end;

Append(ForA1);
writeln(ForA1,'#'+char(9)+char(9)+ floattostrF(Series1.YValues.Value[1],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[2],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[3],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[4],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[5],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[6],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[7],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[8],ffFixed,5,3)+char(9)+floattostrF(S eries1.YValues.Value[9],ffFixed,5,3));
writeln(ForA1,' ');
closefile(ForA1);
end;

end.

вот что записывается в файл, а как из этого график построить?

[Lauraldo]

О Ужас!!!
Это непременно должен быть текстовый файл?