Chart связь

[azamatomus]

Как можно изобразить вертикальный график, а не горизонтальный!на основе таких значений!ГК
Это ось X
7.8
7.7
8.1
8.3
7.3
7.0
7.8
8.1
8.2
10.4
10.0
8.4
9.2
9.0
10.1
9.1
8.0
10.0
8.6
8.6
8.8
8.6
8.1
7.6
7.6
8.1
7.8
8.6



Ось Y (глубина)
100
200
300
400
500
Как можно связать компонент график chart с базой данных access с ADO.
зАранее спасибо!

[Stilet]

Как можно изобразить вертикальный график

А как ты вертикальный график сделал? Выбрал же тип графика, да? Вот там же и выбери тип гистограммы.

[azamatomus]

Я хотел сказать. Что мне нужно получить график с такими данными но в вертикальном виде. Или как можно переделать процедуру?:

procedure Otobr_krivoi;
var
n,i:integer;
a:byte;
begin
form1.Series1.Clear;
n:=FileSize(f) div 16;
if (not eof(f)) then
for i:=0 to  FileSize(f) do
begin
if (not eof(f)) then
read(f,a);
if (i mod 16)=0 then
 form1.Series1.AddXY(i div 16,a,'',clGreen);
end;
application.ProcessMessages;
ShowMessage('Êðèâàÿ Ãê îòîáðàæåíà');
application.ProcessMessages;
ShowMessage(inttostr(FileSize(f) div 16)+' Êîëè÷åñòâî òî÷åê çàïèñè');
application.ProcessMessages;
end;
end.

[Stilet]

с такими данными но в вертикальном виде.

Эм...

form1.Series1.AddXY(a,i div 16,'',clGreen);
И обязательно перед циклом form1.Series1.XValues.Order:=loNone ;

Должно сработать

[azamatomus]

как можно расписать файл *.txt чтобы в дальнейшем получить ось x - данные сопротивлений, а ось Y - глубина измерения в метрах?


Так долно быть?
procedure Otobr_krivoi;
var
n,i:integer;
a:byte;
begin
form1.Series1.Clear;
n:=FileSize(f) div 16;
if (not eof(f)) then
for i:=0 to FileSize(f) do
begin
if (not eof(f)) then
read(f,a);
form1.Series1.XValues.Order:=loNone ;////////
if (i mod 16)=0 then
orm1.Series1.AddXY(a,i div 16,'',clGreen);///////
end;
application.ProcessMessages;
ShowMessage('Êðèâàÿ Ãê îòîáðàæåíà');
application.ProcessMessages;
ShowMessage(inttostr(FileSize(f) div 16)+' Êîëè÷åñòâî òî÷åê çàïèñè');
application.ProcessMessages;
end;
end.

[Stilet]

Во-первых: Код форматируй спецтегом по кнопке на панели инструментов - #.
Во-вторых: Я не знаю как должно быть, я не пробовал твои наработки, я просто исходя из собственного опыта предложил тебе вариант - скомпилируй, запусти и решишь так или нет.

[azamatomus]

Код форматируй спецтегом по кнопке на панели инструментов - #

ЭТО как?

[Stilet]

Смотри скрин.
И компилируй свои наработки.

[azamatomus]

Пытался сделать как вы посоветовали но безрузультатно. Вот как должен выглядеть график в идеале!http://fotki.yandex.ru/users/azamato...499062/?page=0

Ну помогите кто-нибудь!

Помогите перевернуть график пожалуйста!

[krGorka]

Может поможет элементарный пример : sin рисуется вдоль вертикальной оси

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
    sinI:single;
begin
 chart1.Series[0].clear;
 chart1.Series[0].XValues.Order:=loNone ;
 for i:=1 to 720 do
  begin
   sinI:=sin(i*pi/180);
   chart1.Series[0].AddXY(sinI,I,'',clRed);
  end;
end;