Посимвольное считывание из файла в Memo

@Eugene_Zay · Регистрация: 24.01.2018

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

Всем привет! Помогите пожалуйста в решении проблемы. Мне нужно считать посимвольно файл в Memo1
Но как чайнику, мне сделать трудно...
В общем я пошарил форумы, у меня получился следующий код, но проблема в том, что
цикл выполняется всего один раз и в Memo ничего не выводится. Help Me, Please!

C++

void __fastcall TForm1::ButtonsearchClick(TObject *Sender)
{
int handle;
char s;
    Memo1->Lines->Clear();
    f = fopen (NameChar, "r") ;
    if( f == NULL )
        {
            ShowMessage("Файл не загружен");
            return;
        }
    handle = fileno(f);
    lseek(handle, 01, SEEK_SET);
    while (!(eof(handle)));
    {
        read (handle, &s, 1);
        Memo1->Lines->Add(s);
    }
    fclose(f);

@D1973 · 26.01.2018, 08:08

т.е., согласно Вашему коду, Вы хотите в каждой строке Мемо иметь один символ из файла, так получается?

@Eugene_Zay · 26.01.2018, 13:02 **[ТС]**

Нет, нужно сохранить строки, как в текстовом документе, просто не использовать метод LoadFromFile.

Добавлено через 3 минуты
Но дело в том, что даже на каждую строчку в memo ничего не выводится. Много вариантов перепробовал, и этот не исключение...

@D1973 · 26.01.2018, 14:31

Не по теме:

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

просто не использовать метод LoadFromFile.

Извращение какое-то...

@Eugene_Zay · 26.01.2018, 15:02 **[ТС]**

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

Извращение какое-то...

Да я все понимаю, но делать надо. И идей пока что нет...
Я перевожу код с Delphi на C++, пишу метод. часть для выполнения работы.
Проблем-то нет, только с этой программой застрял.

@+1 · 26.01.2018, 17:10

C++

void __fastcall TForm1::ButtonsearchClick(TObject *Sender)
{
int handle;
char s;
String str;
    Memo1->Lines->Clear();
    f = fopen (NameChar, "r") ;
    if( f == NULL )
        {
            ShowMessage("Файл не загружен");
            return;
        }
    handle = fileno(f);
    lseek(handle,0L,SEEK_SET);
    do {
        read (handle, &s, 1);
        if ((int)s==10) {
        Memo1->Lines->Add(str);
        str = "";
        }
        else str += s;
    }while (!(eof(handle)));
    fclose(f);

@Eugene_Zay · 27.01.2018, 01:03 **[ТС]**

Спасибо огромное!!! Помогло!

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	26.01.2018, 08:08	2
	т.е., согласно Вашему коду, Вы хотите в каждой строке Мемо иметь один символ из файла, так получается? 0

@Eugene_Zay 0 / 0 / 0 Регистрация: 24.01.2018 Сообщений: 4
	26.01.2018, 13:02 [ТС]	3
	Нет, нужно сохранить строки, как в текстовом документе, просто не использовать метод LoadFromFile. Добавлено через 3 минуты Но дело в том, что даже на каждую строчку в memo ничего не выводится. Много вариантов перепробовал, и этот не исключение... 0

@D1973
	26.01.2018, 14:31 #4
	Не по теме: Сообщение от Eugene_Zay просто не использовать метод LoadFromFile. Извращение какое-то... 0

@Eugene_Zay 0 / 0 / 0 Регистрация: 24.01.2018 Сообщений: 4
	26.01.2018, 15:02 [ТС]	5
	Сообщение от D1973 Извращение какое-то... Да я все понимаю, но делать надо. И идей пока что нет... Я перевожу код с Delphi на C++, пишу метод. часть для выполнения работы. Проблем-то нет, только с этой программой застрял. 0

@Eugene_Zay 0 / 0 / 0 Регистрация: 24.01.2018 Сообщений: 4
	27.01.2018, 01:03 [ТС]	7
	Спасибо огромное!!! Помогло! 0