Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];
Внизпостроение графика Найти похожие ветки
← →
13 (2006-05-17 14:31) [0]В файле 1.txt находятся координаты точек по оси x
0.003
0.006
0.009
и т.д
В файле 2.txt координаты по оси у
0.002
-0.009
0.006
-0.004
и т.д.
Необходимо построить график использую Chart
← →
KilkennyCat © (2006-05-17 14:48) [1]Ощущение, что был обрыв связи.
← →
13 (2006-05-17 14:49) [2]
> Ощущение, что был обрыв связи.
в смысле
← →
KilkennyCat © (2006-05-17 14:53) [3]В смысле, что это не вопрос.
Уведомление или запись из дневника...
Оборванно на полуслове.
← →
13 (2006-05-17 14:59) [4]сорри но вопрос остается
делаю такvar
f,f1:Tstrings;
i:integer;
x,y:double;
begin
f:=tstringlist.create;
F.loadfromfile("c:\1.txt");
f1.loadfromfile("c:\2.txt");
for i:=0 to F.count-1 do
for j:=0 to f1.Count-1 do
begin
x:=FloatTostr(F.strings[i]);
y:=FloatToStr(F.Strings[j]);
series1.AddX(x);
series1.AddY(y);
end;
но ошибка вылетает
← →
13 (2006-05-17 15:00) [5]понимаю что лажа поэтому подскажите как лучше
← →
balepa © (2006-05-17 15:03) [6]End"a одного нехватает.
Какая ошибка ?
← →
MetalFan © (2006-05-17 15:05) [7]
> но ошибка вылетает
и далеко вылетает?
по подробнее в метрах пожалуйста!
← →
Kolan © (2006-05-17 15:05) [8]13 (17.05.06 14:59) [4]
f:=tstringlist.create;
А кто F1 создаст? Пушкин? :).
Общий смысл верный.
← →
Kolan © (2006-05-17 15:06) [9]Да и еще AddXY пользуй
← →
13 (2006-05-17 15:07) [10]вот так должно
procedure TForm1.BitBtn1Click(Sender: TObject);
var
f,f1:Tstrings;
i,j:integer;
x,y:double;
begin
f:=tstringlist.create;
F.loadfromfile("c:\1.txt");
f1.loadfromfile("c:\2.txt");
for i:=0 to F.count-1 do
for j:=0 to f1.Count-1 do
begin
x:=strTofloat(F.strings[i]);
y:=strTofloat(F.Strings[j]);
series1.AddX(x);
series1.AddY(y);
end;
end;
← →
13 (2006-05-17 15:14) [11]Project project1.exe raised exception class EAccessViolation with message "Access violation at address 00475EEE in module "Project1.exe"".
Read of address 0575C0EC. Process stopped. Use Step or Run to continue.
← →
Desdechado © (2006-05-17 15:23) [12]те еще раз говорят: создай f1 перед употреблением
← →
Kolan © (2006-05-17 15:24) [13]Издеваешься.
Kolan © (17.05.06 15:05) [8] - не смотрел что ли?procedure TForm1.BitBtn1Click(Sender: TObject);
var
f,f1:Tstrings;
i:integer;
x,y:double;
begin
f:=tstringlist.create;
f1:=tstringlist.create;
F.loadfromfile("c:\1.txt");
f1.loadfromfile("c:\2.txt");
for i:=0 to F.count-1 do
begin
x:=strTofloat(F.strings[i]);
y:=strTofloat(F.Strings[j]);
end;
series1.AddXY(X, Y);
end;
end;
Кстати в алгоритме тоже ошибка. Вот так вроде.
ЗЫ
Писал прям сдесь...
← →
13 (2006-05-17 15:27) [14]
> те еще раз говорят: создай f1 перед употреблением
да создал просто по памяти писал все равно ошибка такая же
Я в отладке смотрел в x записывается 9.357540...e-307 а надо при i=0 0.003
← →
Kolan © (2006-05-17 15:32) [15]
не
y:=strTofloat(F.Strings[j]);
а
y:=strTofloat(F.Strings[I]);
← →
Elen © (2006-05-17 15:34) [16]А зачем пользоваться TStrings? Не проще ли будет по старинке через Readln
← →
EvS © (2006-05-17 15:35) [17]y:=strTofloat(F.Strings[j]) ????
← →
Kolan © (2006-05-17 15:37) [18]Еще не забудь деструкторы вызвать....
← →
EvS © (2006-05-17 15:38) [19]>Kolan © (17.05.06 15:32) [15]
>не
>y:=strTofloat(F.Strings[j]);
>а
>y:=strTofloat(F.Strings[I]);
наверное y:=strTofloat(F1.Strings[I]);
← →
Kolan © (2006-05-17 15:42) [20]
var
I: Integer;
Strings1, Strings2: TStringList;
X, Y: Double;
begin
Strings1 := TStringList.Create;
Strings2 := TStringList.Create;
try
Strings1.LoadFromFile("File1Name");
Strings2.LoadFromFile("File2Name");
for I := 0 to Strings1.Count - 1 do
begin
X := StrToFloat(Strings1[I]);
Y := StrToFloat(Strings2[I]);
Series1.AddXY(X, Y);
end;
finally
Strings1.Free;
Strings2.Free;
end;
end;
← →
13 (2006-05-17 15:43) [21]мастера короче вот так и все равно не работает
procedure TForm1.BitBtn1Click(Sender: TObject);
var
f,f1:Tstrings;
i,j:integer;
x,y:double;
begin
f:=tstringlist.create;
f1:=tstringlist.create;
F.loadfromfile("c:\1.txt");
f1.loadfromfile("c:\2.txt");
for i:=0 to F.count-1 do
for j:=0 to f1.Count-1 do
begin
x:=strTofloat(F.strings[i]);
y:=strTofloat(F.Strings[j]);
end;
series1.AddXY(X, Y);
F1.Free;
F.Free;
end;
← →
13 (2006-05-17 15:56) [22]
> Kolan © (17.05.06 15:42) [20]
так тут надо из двух файлов точки брать а у Вас только по одному файлу
← →
Kolan © (2006-05-17 16:17) [23]
Strings1.LoadFromFile("File1Name");
Strings2.LoadFromFile("File2Name");
Обрати внимание...
мастера короче вот так и все равно не работает
Отлаживать не умеешь?
File1 File2
1 4
2 5
3 6
Смотрим товй алгоритм. Какие точки он сделает:
(1,4) (1,5) (1,6)
(2, 4) (2, 5) (2, 6)
(3, 4) (3, 5) (3, 6)
Понял где ошибка?
И когда говоришь:
мастера короче вот так и все равно не работает
Нужно поиснять что именно не работает, какие ошибки возникаю...
← →
13 (2006-05-17 16:24) [24]
> Kolan © (17.05.06 16:17) [23]
Респект врубился
А ОШИБКУ Я ВСЕТАКИ НАШЕЛ!!!!!!!! УРА
ОГРОМНОЕ СПАСИБО Kolan
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.043 c