Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

символы конца строки или файла?!?   Найти похожие ветки 

 
Viper ©   (2004-10-15 21:50) [0]

Файл открываеться таким образом
procedure TForm1.loaddll(puth:string);
begin
AssignFile(F,puth);
Reset(F);
Memo1.Clear;
repeat
  readln(F,d);
  Memo1.Lines.Add(d);
 until eof(F);
CloseFile(F);
end;
В memo1 храниться нужный текст + eof или eol, вам виднее!
Так вот eof или eol нужно удалить, как?


 
GabibalLector   (2004-10-15 21:54) [1]

LOL


 
Viper ©   (2004-10-15 22:08) [2]

>LOL
Мне это не очем не говорит, можно как нибуть поточнее
мне нужен просто текст без всяких LOL и т.п.


 
Viper ©   (2004-10-16 20:23) [3]

>GabibalLector можешь подредактировать мой код чтобы он выполнял то что мне нужно.

//Файл открываеться таким образом
procedure TForm1.loaddll(puth:string);
begin
AssignFile(F,puth);
Reset(F);
Memo1.Clear;
repeat
 readln(F,d);
 Memo1.Lines.Add(d);
until eof(F);
CloseFile(F);
end;
//В memo1 храниться нужный текст + eof или eol, вам виднее!
//Так вот eof или eol нужно удалить, как?


 
palva ©   (2004-10-16 21:28) [4]

Здесь переменная d, а также и поле Memo1 не хранят eol. Непонятно, что вы хотите удалять.


 
Viper ©   (2004-10-16 21:50) [5]


> Здесь переменная d, а также и поле Memo1 не хранят eol.
> Непонятно, что вы хотите удалять.


Дело в том что если открыть этот файл таким образом  Memo1.LoadFromFile(puth);то полученый текст будет на два "невидимых" символа меньше чем если файл открываеться таким образом
procedure TForm1.loaddll(puth:string);
begin
AssignFile(F,puth);
Reset(F);
Memo1.Clear;
repeat
readln(F,d);
Memo1.Lines.Add(d);
until eof(F);
CloseFile(F);
end;


 
panov ©   (2004-10-16 22:24) [6]

readln(F,d);
считывает только содержимое строки, без завершающих символов конца строки и перевода каретки.

Если у тебя считыывается пустая строка, а условие Eof еще не возникло, то это означает, что у тебя и в файле есть пустые строки, то есть байты вида 0d0a0d0a.

Просто при добавлении строк проверяй их длину, если длина=0(или строка=""), то не добавляй в Memo.


 
GanibalLector ©   (2004-10-16 23:24) [7]

2 Viper ©
>Мне это не о чем не говорит, можно как нибуть поточнее
мне нужен просто текст без всяких LOL и т.п.

См.ответ [6], а вообще,я не понял какое отношение Ваш вопрос имел к конф.WinApi.Отсюда и результат =>LOL



Страницы: 1 вся ветка

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.053 c
1-1097832637
TeNY
2004-10-15 13:30
2004.10.31
Как определить равенсво двух обьектов тип Tpicture?


14-1097652153
Шурик
2004-10-13 11:22
2004.10.31
Обычные не обычные...


3-1096880740
Начинающий освоение БД
2004-10-04 13:05
2004.10.31
Массив в поле таблицы


14-1097334147
rolex2002
2004-10-09 19:02
2004.10.31
Как на 25 и 5 гнёзда LPT порта подать напряжение?


14-1097426125
Beginner707
2004-10-10 20:35
2004.10.31
Создание объектов VCL Run-Time