Скачать: CL | DM;

ПОМОГИТЕ ПОЖАЛУЙСТА, У МЕНЯ ЕСТЬ ЗАДАЧКА-НАДО СРОЧНО РЕШИТЬ   Найти похожие ветки 

← →
OLEG.S   (2002-07-24 14:58) [0]

ЛЮДИ ДОБРЫЕ, ПОМОГИТЕ ПОЖАЛУЙСТА, У МЕНЯ ЕСТЬ ЗАДАЧКА-НАДО СРОЧНО РЕШИТЬ.
ЗАДАНИЕ:
ДАН ТЕКСТОВЫЙ ФАЙЛ, НАПРИМЕР:

10.52 162.58 9.71 ... 115.05 24 ИЮЛЯ 2002 Г.
11.65 118.46 8.54 ... 168.89 23 МАЯ 2002 Г.
.................................................
10.05 109.49 9.99 ... 109.54 15 МАРТА 2002 Г.

ЧИСЛА - ЦЕНА, А ДАТА - ДАТА ПОКУПКИ.

1 ВОПРОС:
КАК ДАННЫЙ ФОРМАТ ДАТЫ (15 МАРТА 2002 Г.) ПОМЕНЯТЬ НА ДД/ММ/ГГГГ (15/03/2002) И РЕЗУЛЬТАТ СОХРАНИТЬ В ДРУГОМ ТЕКСТОВОМ ФАЙЛЕ.
2 ВОПРОС:
КАК ИЗ ТЕКСТ. ФАЙЛА УДАЛИТЬ ОПРЕДЕЛЁННЫЙ СТОЛБЕЦ, ЕСЛИ ДАННЫЕ ИЗ ФАЙЛА ВЫВОДЯТСЯ В LISTBOX1, А НОМЕР УДАЛЯЕМОГО СТОЛБЦА ВВОДИТСЯ В EDIT1.

КСТАТИ, НАЧАЛЬНЫЙ ТЕКСТ. ФАЙЛ НЕ ИЗМЕНЯТЬ, НЕ ПЕРЕПИСЫВАТЬ НЕЛЬЗЯ. ВСЕ РЕЗУЛЬТАТЫ ДОЛЖНЫ СОХРАНЯТЬСЯ В ДРУГОМ ТЕКСТОВОМ ФАЙЛЕ.

ЗАРАНЕЕ БЛАГОДАРЕН, ЕСЛИ КТО ОТЗОВЕТСЯ ПОМОЧЬ РЕШИТЬ ПРОБЛЕМУ, ОЧЕНЬ НУЖНО!

---

← →
Неместный   (2002-07-24 15:18) [1]

Мы сами не местные. Поможите кто чем может !
Научите читать книжки по программированию.

---

← →
lenin ©   (2002-07-24 15:33) [2]

Вся задача сводится к работе со строками. Главное отыскать месио разделения столбцов, а это можно сделать использовав функцию pos

---

← →
SuperIgor ©   (2002-07-24 15:35) [3]

Ответ на првый вопрос:
15 марта 2002 г. >>> 15/03/02
Можно сделать так.
Читаешь из файла подстроку "15 марта 2002 г."
15 так и оставляешь
2002 обрезаешь первые 2 символа
С месяцем сложнее. Сделай Файл данных типа...
Января 1
Февраля 2
...
Декабря 12

Потом читай из строки "15 марта 2002 г."
и подставлятй значения заместо Января --- 1 и т.д

2. Так тебе нужно удалить данные из файла или из ListBox1???

---

← →
Просто так   (2002-07-24 17:08) [4]

if количество столбцов одинаково, сделать файл типа RECORD:
а дальше по делу.
if хорошо, тогда

...
const
ryadCount = 5; //количество столбцов - 1;
type
TCena = array[1..ryadCount] of real;

TMas = record
cena: TCena;
data: string[12];
end;

TForm1 = class(TForm)
...
end;

var
Form1: TForm1;
f: file of TMas;
mas: TMas;
...
implementation
...
mas.cena[i] //не писать в ListBox, - єл. нужн. СТОЛБЕЦА.
...
end.

---

← →
vizier   (2002-07-24 17:39) [5]

как все запущено.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c