Помогите с чтением файла.

← →
Klawa (2007-11-02 12:12) [0]

У меня такая проблема: есть текстовой фаил (.txt) и я читаю из него строчкии и записываю в переменую(string). Дальше вывожу его на экран с помошью ShowMessage() и он выдает мне абра-кадабру!!! И такой же результат при попытке вывести её ещё куда нибуть. Я думаю что Delphi криво читает этот фаил,что мне делать что бы небыло такой ерунды?

← →
Reindeer Moss Eater © (2007-11-02 12:14) [1]

Когда файл пишешь в фаре, нажимай F8 чтобы писать в кодировке win 1251

← →
Reindeer Moss Eater © (2007-11-02 12:15) [2]

Хотя может ты просто не умеешь читать файлы. Это тоже не исключено.

← →
Klawa (2007-11-02 12:18) [3]

Файлы читать умею) Делал это 1000 и 1 раз! И текстовой фаил пишу не я! Моя программа сливает его по фтп,и с ним работает.

← →
Reindeer Moss Eater © (2007-11-02 12:20) [4]

Слей с фтп и открой блокнотом.

← →
clickmaker © (2007-11-02 12:24) [5]

> он выдает мне абра-кадабру!!!

OemToChar()?
файл-то в какой кодировке?

← →
Klawa (2007-11-02 12:25) [6]

В смысле? Просто открыть виндосовским блокнотом? Если да,то я это делал,и там нормальный человеческий текст,но вот при чтении этого файла идёт абра кадабра.

читаю так:

AssignFile(price,pr);
reset(price);
readln(price,str);
CloseFile(price);

ну и это всё в цикле

← →
clickmaker © (2007-11-02 12:27) [7]

> ну и это всё в цикле

а StringList.LoadFromFile не проще ли?

← →
Klawa (2007-11-02 12:27) [8]

как узнать кодировку?

OemToChar() - это что?

← →
Klawa (2007-11-02 12:29) [9]

Я ввожу в StringGrid. и в DBGrid с помощью массивив. просто я должен читать слова отделённые определёнными символоми.

← →
Reindeer Moss Eater © (2007-11-02 12:31) [10]

Просто открыть виндосовским блокнотом? Если да,то я это делал,и там нормальный человеческий текст

Значит ты все же не умеешь читать текстовые файлы.

← →
Klawa (2007-11-02 12:34) [11]

Хорошо,а как тогда их читать? Кроме как read и readln ?

← →
MOO (2007-11-02 12:36) [12]

StringList + F1

← →
Klawa (2007-11-02 12:43) [13]

Кстати не читаются только русские буквы.

← →
Reindeer Moss Eater © (2007-11-02 12:47) [14]

Кстати не читаются только русские буквы.

Ну и что тогда про блокнот врал?

← →
clickmaker © (2007-11-02 12:48) [15]

> как тогда их читать? Кроме как read и readln ?

CreateFile - ReadFile - CloseFile

← →
Klawa (2007-11-02 12:49) [16]

В смысле? В блокноте они читаются.(Я имею ввиду виносовский стандартный блакнот)а делфи их не воспринемает.

← →
Anatoly Podgoretsky © (2007-11-02 12:51) [17]

А утверждал, что умеешь. До умения тебе еще далеко. А имя почему женское взял, Клава?

← →
Anatoly Podgoretsky © (2007-11-02 12:52) [18]

И чтение в StrilgList ничем не хуже, теже строки.

← →
Klawa (2007-11-02 12:55) [19]

Имя нравица))) А про stringList где прочитать на русском? Я просто всегда пользовался read и readln, и в универе меня так учили(((

← →
Denis__ © (2007-11-02 12:57) [20]

Я тоже пользовался read и readln и что? У меня всё читалось.

← →
Anatoly Podgoretsky © (2007-11-02 12:58) [21]

> Reindeer Moss Eater (02.11.2007 12:47:14) [14]

А может он еще и блокнотом пользоваться не умеет.

← →
Klawa (2007-11-02 13:03) [22]

Ага и комп первый раз вижу :-D И работаю за ламповым компом который занимает у меня пол комнаты! И блакнот у меня только бумажный на столе(письменном)

Denis я за тебя безумно рад! НО У МЕНЯ ИМЕННО МОЙ ФАИЛ НЕ ЧИТАЕТСЯ! ПРОСТО БЕРЁТ БЛИН И НЕ ЧИТАЕТСЯ!!! И ТОЛЬКО ЭТОТ!!! ВСЕ ДРУГИЕ ПРЕКРАСНО ЧИТАЛИСЬ,ЗАПИСЫВАЛИСЬ И ВЫВОДИЛИСЬ!!! НО ВОТ ЭТОТ НЕ ХОЧЕТ ЭТОГО ДЕЛАТЬ!

← →
Anatoly Podgoretsky © (2007-11-02 13:25) [23]

> Klawa (02.11.2007 13:03:22) [22]

Поверь, нам тебя жалко, но свою долю ты сам выбирал, нас не спрашивал.

← →
Правильный_Вася (2007-11-02 13:33) [24]

может, файл юникодный?
а то блокнот определяет

После того, как открыл в блокноте, попробуй его "сохранить как..." и посмотри в каком виде он предлагает его сохранить. Если utf-8, то значит файл был юникодный.

← →
Klawa (2007-11-02 15:02) [26]

ДА юникодный. И что мне делать?

> [26] Klawa (02.11.07 15:02)

WideCharToString()

а также Utf8ToAnsi()

> ДА юникодный. И что мне делать?

Ну и чего тогда полез в ReadLn, справку то прочитай до использования той или иной функции.

← →
Klawa (2007-11-02 15:17) [30]

Спасибо)) Только у меня стал появлятся ?-знак перед строчкой((( но с этим я справлюсь)

Кого за знак вопроса благодаришь, а что такое юникод или 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;

Помогите с чтением файла. Найти похожие ветки