Головна сторінка
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.05 c
4-1099132569
Сирин
2004-10-30 14:36
2004.12.12
відновлення файлів


3-1100067136
SergP
2004-11-10 09:12
2004.12.12
Ще раз про номер запису dataset а в onDrawColumnCell DBGrid а


14-1100809808
OneFragLeft
2004-11-18 23:30
2004.12.12
Про гвинти.


14-1101327543
Ig
2004-11-24 23:19
2004.12.12
InterBase в Delphi //


4-1098804856
dms_main
2004-10-26 19:34
2004.12.12
Потоки. Waitfor.





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська