Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Внизсимволы конца строки или файла?!? Найти похожие ветки
← →
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);
//В memo1 храниться нужный текст + eof или eol, вам виднее!
begin
AssignFile(F,puth);
Reset(F);
Memo1.Clear;
repeat
readln(F,d);
Memo1.Lines.Add(d);
until eof(F);
CloseFile(F);
end;
//Так вот 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c