Считать посимвольно txt файл в ANSI кодировке

@Smiles · Регистрация: 27.11.2012

Студворк — интернет-сервис помощи студентам

Всем привет!

Понимаю, что наверное вопрос о считывании посимвольно txt файлов уже обсуждался и не раз!(Чтение из txt).
Но все же, у меня возникла проблема с посимвольным считыванием txt-файла(во вложении '1.txt'), который является палитрой цветов в формате RGB. Значения RGB в файле разбиты на тройки и представлены символами в ANSi кодировке (я так предпалагаю

). Все что я смог добиться - это только запись текста целиком к примеру в RichEdit, а требуется хотя бы чтобы каждый символ был на отдельной строке или в массиве, т.е. выделить каждый символ от остальных.

@mss · 27.11.2012, 12:48

Это не текстовый файл.

@Smiles · 27.11.2012, 13:01 **[ТС]**

подскажи, пожалуйста, тогда формат данного файла? и как с ним работать?

@mss · 27.11.2012, 13:19

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type
  TRGB = packed record
    R,G,B: Byte;
  end;
var
 Color: TRGB;
..
  fs := TFileStream.Create('myfile', fmOpenRead);
  try
    for i := 0 to fs.Size div 3 do begin
      fs.ReadBuffer(Color, SizeOf(Color));
      ...
    end;
  finally
    fs.Free;
  end;

@Smiles · 27.11.2012, 14:09 **[ТС]**

1) вместо 'myfile' я использую свой файл?
2) на выходе я получаю цвет Color c соответствующими значениями RGB?
например, на приведенной ниже коде должно получиться несколько линий разных цветов:

Delphi
1
2
3
4
5
6
7
8
9
10
11
fs := TFileStream.Create('C:\Users\User\Desktop\1.txt', fmOpenRead);
  try
    for i := 0 to fs.Size div 3 do begin
      fs.ReadBuffer(Color, SizeOf(3));
      Image1.Canvas.Pen.Color:=Color.R+Color.G+Color.B;
      Image1.Canvas.LineTo(100*i+50,100*i+50);
      end;
  finally
    fs.Free;
  end
;

но Canvas рисует только одну линию. Видно, что я не совсем правильно понял. Поясни, пожалуйста.

@mss · 27.11.2012, 14:14

Сообщение от Smiles

1) вместо 'myfile' я использую свой файл?

Разумеется.

Сообщение от Smiles

2) на выходе я получаю цвет Color c соответствующими значениями RGB?

Верно.

Сообщение от Smiles

Canvas рисует только одну линию

Рисуешь ты, а не Canvas.
Сколько ты нарисовал - столько и видишь.

Сообщение от Smiles

файла.., который является палитрой цветов

В файле этом нет никакой информации ни о каких "линиях".

@Smiles · 27.11.2012, 14:22 **[ТС]**

Все понятно!Долго над этим сидел, и только благодаря тебе разобрался! Спасибо большое!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.11.2012, 12:48
	Это не текстовый файл. 1

@Smiles 0 / 0 / 0 Регистрация: 27.11.2012 Сообщений: 11
	27.11.2012, 13:01 [ТС]
	подскажи, пожалуйста, тогда формат данного файла? и как с ним работать? 0

@Smiles 0 / 0 / 0 Регистрация: 27.11.2012 Сообщений: 11
	27.11.2012, 14:22 [ТС]
	Все понятно!Долго над этим сидел, и только благодаря тебе разобрался! Спасибо большое! 0