Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 971

/ вопрос открыт /

Здравствуйте, уважаемые эксперты! Посоветуйте,пожалуйста. Из текстового файла,типа двухмерного массива:
..X20 Y40
X49 Y15..
необходимо извлечь числа и составить график. Как бы это сделать?

hobbol Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: 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™

min@y™ (статус: Доктор наук), 5 июля 2009, 09:44 [#1]:

А в чём проблема? Не можешь извлечь информацию из файла или график построить?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Косолапов Дмитрий Юрьевич

Косолапов Дмитрий Юрьевич (статус: 8-ой класс), 7 июля 2009, 13:17 [#2]:

В примере эксперта Паровоз не определена переменная (константа?) n. Да и не универсально это.
Вадим К

Вадим К (статус: Академик), 7 июля 2009, 13:24 [#3]:

А нужен код, который любой файл открыть сможет и вычитать? и в точки преобразовать?
Галочка "подтверждения прочтения" - вселенское зло.
hobbol

hobbol (статус: Посетитель), 8 июля 2009, 11:58 [#4]:

Уважаемые эксперты!Главная проблема для меня здесь заключается в том-как же все-таки извлечь нужные числа из файла.Файл,естественно,различной длины.
X и Y могут быть по одиночке,а числа - могут быть дробными.
Паровоз

Паровоз (статус: 10-ый класс), 8 июля 2009, 12:20 [#5]:

To Косолапов Дмитрий Юрьевич:
"В примере эксперта Паровоз не определена переменная (константа?) n."
А кто мешает Вам ее определить?
"Да и не универсально это."
Ждем от Вас универсальный ответ.
Паровоз

Паровоз (статус: 10-ый класс), 8 июля 2009, 12:26 [#6]:

To hobbol:
Почитать про работу с файлами можно, например, на нашем сайте: http://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);

Теперь это нужно завернуть в цикл, но этот участов кода уже есть выше.

Если структура файла более сложная - надо уже писать полноценный парсер.
Галочка "подтверждения прочтения" - вселенское зло.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 10 августа 2022, 23:54
Выполнено за 0.03 сек.
Рейтинг@Mail.ru