Допоможіть читати файл
У мене така проблема: є текстовий фаїл (.txt) і я читаю з нього рядки і записую в зміну (string). Далі виводжу його на екран за допомогою ShowMessage() і він видає мені абра-кадабру. І такий же результат при спробі вивести її ще кудись. Я думаю що Delphi криво читає цей фаїл, що мені робити що б не було такої нісенітниці?
Слей з фтп та відкрий блокнотом.
> він видає мені абра-кадабру.OemToChar()? файл-то в якому кодуванні?
В сенсі? Просто відкрити віндосівським блокнотом? Якщо так, то я це робив, і там нормальний людський текст, але при читанні цього файлу йде абра кадабра.
ну і це все в циклі
> ну і це все в цикліа StringList.LoadFromFile чи не простіше?
як дізнатися кодування?
Просто відкрити віндосівським блокнотом? Якщо так, то я це робив, і там нормальний людський текст.
До речі, не читаються лише українські літери.
До речі не читаються лише українські літери.
Ну і що тоді про блокнот брехав?
В сенсі? У блокноті вони читаються. (Я маю на увазі виносівський стандартний блокнот) а делфі їх не сприймає.
А стверджував, що вмієш. До вміння тобі ще далеко. А ім'я чомусь жіноче взяв, Клаво?
І читання в StrilgList нічим не гірше, теж рядки.
Ім'я нравиця))) А про stringList де прочитати українською? Я просто завжди користувався read і readln, і в універі мене так навчали(((
Я теж користувався read і readln, і що? У мене читалося все.
А може, він ще й блокнотом користуватися не вміє.
Ага і комп вперше бачу :-D І працюю за ламповим компом який займає у мене пів кімнати! І блокнот у мене тільки паперовий на столі(письмовому)
Denis я за тебе шалено радий!АЛЕ У МЕНЕ САМЕ МІЙ ФАІЛ НЕ ЧИТАЄТЬСЯ! ПРОСТО БЕРЕ БЛІН І НЕ ЧИТАЄТЬСЯ. І ТІЛЬКИ ЦЕЙ. Всі інші чудово читалися, записувалися і виводилися. АЛЕ ЦЕЙ НЕ ХОЧЕ ЦЬОГО РОБИТИ!
Повір, нам тебе шкода, але свою частку ти сам вибирав, нас не питав.
може, файл юнікодний? А то блокнот визначає
Після того, як відкрив у блокноті, спробуй його "зберегти як" і подивися в якому вигляді він пропонує його зберегти. Якщо utf-8, значить файл був юнікодний.
ТАК юнікодний. І що мені робити?
> ТАК юнікодний. І що мені робити?Ну і чого тоді поліз у ReadLn, довідку то прочитай до використання тієї чи іншої функції.
Дякую)) Тільки у мене став з'являтися ?-знак перед рядком ((( але з цим я впораюся)
Кого за знак питання дякуєш, а що таке юнікод чи utf-8 файли ти вже прочитав, які вони бувають?
Перші три байти файлу треба пропустити. AssignFile(price,"t026.txt"); Reset(price); read(price, c); read(price, c); read(price, c); readln(price, str); CloseFile(price); str := Utf8ToAnsi(str);
Пропустив описи: var price: Text; str: String; c: Char;