Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

TextFile   Найти похожие ветки 

 
Сор   (2004-11-29 19:12) [0]

Надо прочитать численные значения в текстовом файле и сравнить их с получившимися в процессе работы.Например,
Вот что записано в текстовом файле
1,1
8,5
9,3
Получившееся значение
1,2
Вот его и надо сравнить со значениями в файле и если они не совпадают добавить получившееся значение в файл (следующей строкой)


 
begin...end ©   (2004-11-29 19:14) [1]

> Сор   (29.11.04 19:12)

И что конкретно не получается?


 
Сор   (2004-11-29 19:25) [2]

Сравнение


 
Anatoly Podgoretsky ©   (2004-11-29 19:31) [3]

if A = B, где A и B твои переменные.


 
begin...end ©   (2004-11-29 19:32) [4]

> [2] Сор   (29.11.04 19:25)

Сравнение производится при помощи операций отношения "<", "<=", "=", ">=", ">".

Перед тем, как сравнивать, нужно прочитать файл (с помощью процедуры ReadLn), попробовать преобразовать каждую строку в число (см. функции StrToFloat, StrToFloatDef, TryStrToFloat), а потом сравнить по очереди эти числа с "получившимся значением".

Текстовый файл связывается с файловой переменной с помощью процедуры Assign, открывается для чтения с помощью процедуры Reset, открывается для добавления строк с помощью процедуры Append.



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

Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.064 c
1-1101875975
V.I.P
2004-12-01 07:39
2004.12.12
Работа


14-1100949851
DelphiN!
2004-11-20 14:24
2004.12.12
Куда программа шлет письмо?


14-1100874460
ceval
2004-11-19 17:27
2004.12.12
Подскажите компонент для автозапуска программы


4-1098992943
Khabibulin
2004-10-28 23:49
2004.12.12
BIOS


14-1100881470
Defunct
2004-11-19 19:24
2004.12.12
Как избавиться от порносайтов?!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский