|
Вопрос # 2 971/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! Посоветуйте,пожалуйста. Из текстового файла,типа двухмерного массива:
..X20 Y40
X49 Y15..
необходимо извлечь числа и составить график. Как бы это сделать?
 |
Вопрос задал: hobbol (статус: Посетитель)
Вопрос отправлен: 4 июля 2009, 22:25
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Паровоз
Здравствуйте, hobbol!
Например, как-то так:
procedure TForm1.Button2Click(Sender: TObject);
var
f:TextFile;
x,y:array[0..n] of Integer;
i:Integer;
begin
AssignFile(f,'E:\datum.txt');
Reset(f);
for i:=0 to n do
begin
Readln(f,x[i],y[i]);
end;
CloseFile(f);
for i:=0 to n do Chart1.Series[0].AddXY(x[i],y[i]);
end;
 |
Ответ отправил: Паровоз (статус: 10-ый класс)
Время отправки: 5 июля 2009, 15:45
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 8 июля 2009, 12:32; участников в обсуждении: 5.
|
min@y™ (статус: Доктор наук), 5 июля 2009, 09:44 [#1]:
А в чём проблема? Не можешь извлечь информацию из файла или график построить?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Косолапов Дмитрий Юрьевич (статус: 8-ой класс), 7 июля 2009, 13:17 [#2]:
В примере эксперта Паровоз не определена переменная (константа?) n. Да и не универсально это.
|
|
Вадим К (статус: Академик), 7 июля 2009, 13:24 [#3]:
А нужен код, который любой файл открыть сможет и вычитать? и в точки преобразовать?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
hobbol (статус: Посетитель), 8 июля 2009, 11:58 [#4]:
Уважаемые эксперты!Главная проблема для меня здесь заключается в том-как же все-таки извлечь нужные числа из файла.Файл,естественно,различной длины.
X и Y могут быть по одиночке,а числа - могут быть дробными.
|
|
|
Паровоз (статус: 10-ый класс), 8 июля 2009, 12:20 [#5]:
To Косолапов Дмитрий Юрьевич:
"В примере эксперта Паровоз не определена переменная (константа?) n."
А кто мешает Вам ее определить?
"Да и не универсально это."
Ждем от Вас универсальный ответ.
|
|
|
Паровоз (статус: 10-ый класс), 8 июля 2009, 12:26 [#6]:
To hobbol:
Почитать про работу с файлами можно, например, на нашем сайте: https://www.delphi-int.ru/articles/125/. А пока Вы не определились со структурой содержимого файла, вряд ли Вы получите конкретный ответ.
|
|
|
Вадим К (статус: Академик), 8 июля 2009, 12:32 [#7]:
Если структура файла не известна, то вычитать его никак.
Хотя Memo1.Lines.LoadFromFile(имя_файла); прочитает все оттудова
если же файл именно такой, как приведено в примере, то чтение будет такое
var c1,c2:char;//<<< это две специальные фиктивные переменные
//что бы вычитать 'X' и 'Y'
x,y:real;
/////
readln(f,c1,x,c2,y);
Теперь это нужно завернуть в цикл, но этот участов кода уже есть выше.
Если структура файла более сложная - надо уже писать полноценный парсер.
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
