Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

символы конца строки или файла?!? [D7, WinXP]

Viper © (2004-10-15 21:50:00)
Файл открываеться таким образом
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 нужно удалить, как?

GanibalLector (2004-10-16 23:24:00) [1]
2 Viper ©
>Мне это не о чем не говорит, можно как нибуть поточнее
мне нужен просто текст без всяких LOL и т.п.

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

panov (2004-10-16 22:24:00) [2]
readln(F,d);
считывает только содержимое строки, без завершающих символов конца строки и перевода каретки.

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

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

Viper (2004-10-16 21:50:00) [3]

> Здесь переменная 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;

palva (2004-10-16 21:28:00) [4]
Здесь переменная d, а также и поле Memo1 не хранят eol. Непонятно, что вы хотите удалять.

Viper (2004-10-16 20:23:00) [5]
>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 нужно удалить, как?

Viper (2004-10-15 22:08:00) [6]
>LOL
Мне это не очем не говорит, можно как нибуть поточнее
мне нужен просто текст без всяких LOL и т.п.

GabibalLector (2004-10-15 21:54:00) [7]
LOL

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »