Главная страница
    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.46 MB
Время: 0.05 c
4-1096035265
Ale}{(is)
2004-09-24 18:14
2004.10.31
Как получить хэндл главной формы ЧУЖОГО приложения


4-1096123510
XProger
2004-09-25 18:45
2004.10.31
Panel на Win API


3-1096621509
msguns
2004-10-01 13:05
2004.10.31
MSACCESS. Ошибка синтаксиса


14-1097723617
BorisUK
2004-10-14 07:13
2004.10.31
Что это? Лохотронщики взялись за ebay или я чтото не понял...


1-1098096942
Term
2004-10-18 14:55
2004.10.31
Сервер при приёме файла падает





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский