| Цитата(Rodman @ 11.9.2006, 15:37) | | Цитата | | Тебе нужно считать последние две пары значений??? или как ты хочешь три значения в TChart включить??? |
|
Вот как я реализовал вывод первых трех чисел:
| Код |
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RbDrawCore, RbButton, TeEngine, Series, ExtCtrls, TeeProcs,
Chart, StdCtrls;
type
TForm5 = class(TForm)
RbButton1: TRbButton;
Chart1: TChart;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Series1: TBarSeries;
procedure RbButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
F_vop,F_ot:textfile;
str:string;
implementation
{$R *.dfm}
procedure TForm5.RbButton1Click(Sender: TObject);
begin
Application.Terminate;
end;
Procedure TForm5.FormCreate(SEnder: TObject);
Var i,xxx,zzz,yyy:Integer;
Begin
Assignfile(F_vop,'ball');
{$I-}
Reset(F_vop);
{$I+}
if IOResult<>0 then
begin
ShowMessage(' Ошибка открытия файла с вопросами! ');
Application.Terminate;
end;
readln(F_vop,str);
edit1.Text:=str;
readln(F_vop,str);
edit2.Text:=str;
readln(F_vop,str);
edit3.Text:=str;
xxx:=StrToInt(Edit1.Text);
yyy:=StrToInt(Edit2.Text);
zzz:=StrToInt(Edit3.Text);
Series1.AddXY(1,xxx,'');
Series1.AddXY(2,yyy,'');
Series1.AddXY(3,zzz,'');
End;
end.
|
А как брать последние три числа из файла??? |
