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

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

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

Открытие файла [D7, Win95/98, WinXP]

parovoZZ © (2004-07-25 20:15:00)
А как-бы открыть файл, но так , чтобы полученный текст оказался отформатированным? Пока я делаю так:
function LoadFile : String; var f : TextFile; Buf : String; begin AssignFile (f, FileName); {$I-} Reset (f); {$I-} if IOResult <> 0 then begin Result := 'Failed open file' + #13; Exit; end; repeat readln (f, buf); Result := Concat (Result, buf, #13); until EOF (f); CloseFile (f); Result := Result; end;

Может что по профиссиональнее есть?

parovoZZ (2004-07-29 19:22:00) [1]
А зачем мне ещё приплюслвывать classes?

Fay (2004-07-27 19:42:00) [2]
2parovoZZ © (27.07.04 19:09) [17]
Ну и правильно 8)

Anatoly Podgoretsky (2004-07-27 19:11:00) [3]
parovoZZ © (26.07.04 20:59) [15]
А вот так [10]

parovoZZ (2004-07-27 19:09:00) [4]
Ветку удалили.

Fay (2004-07-26 21:17:00) [5]
2parovoZZ © (26.07.04 20:59) [15]
Посмотри здесь. Может подойдёт.
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1089726665&n=0

parovoZZ (2004-07-26 20:59:00) [6]
Извините меня не грамотного, но как всё переписать нафиг? Я ж только учусь.

Fay (2004-07-26 09:11:00) [7]
2Anatoly Podgoretsky © (26.07.04 09:10) [13]
8)

Anatoly Podgoretsky (2004-07-26 09:10:00) [8]
Serge_ (25.07.04 23:54) [10]
Настоящий русский программист.

Fay (2004-07-26 02:23:00) [9]
Наверное в Classes

parovoZZ (2004-07-26 00:42:00) [10]
А я вообще не настоящий программист, так, понарошку.

to serge_
Где описан tstringlist?

Serge_ (2004-07-25 23:54:00) [11]
s:tstringlist
s:=tstringlist.create;
s.loadfromfile(filename);
FormatedText:=s.text

Anatoly Podgoretsky (2004-07-25 21:51:00) [12]
Так поступают настоящие русские программисты.

parovoZZ (2004-07-25 21:46:00) [13]
В смысле?

Anatoly Podgoretsky (2004-07-25 21:40:00) [14]
Переписать все нафиг

parovoZZ (2004-07-25 21:21:00) [15]
В принципе работает, но появился совершенно ненужный символ - начало строки. Может есть какой-нить способ также профессионально отрисовать этот текст, но построчно. Просто мне нужно знать длину строки в каждую еденицу времени, а DrawText не очень удобен. Приходится использовать TextOut, но она не понимает форматирванного теста, конец абзаца приходится искать вручную и также вручную переводить каретку.

parovoZZ (2004-07-25 21:03:00) [16]
>Вас точно зовут Андрей?

А что, завидно?

Вася (2004-07-25 20:43:00) [17]
Пусть сам пишет где надо. Это все лишь пример чтени текстового файла.

Магнитон Борыч (2004-07-25 20:42:00) [18]
>Вася (25.07.04 20:39) [2]

Я думаю попрофессиональней это когда try, expect и т.д. юзаются.

Вася (2004-07-25 20:39:00) [19]
function ReadTextFile(TextFilePath:String):String;

var
Buf:String;
F:File;
begin

AssignFile(F,TextFilePath);

Reset(F,1);

SetLength(Buf,FileSize(F));

BlockRead(F,Buf[1],FileSize(F);

CloseFile(F);

Result :=Buf;

end;

Магнитон Борыч (2004-07-25 20:37:00) [20]
>Result := Result;

Гыы :)))
Вас точно зовут Андрей?

Наверх

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