Открытие файла

← →
parovoZZ © (2004-07-25 20:15) [0]

А как-бы открыть файл, но так , чтобы полученный текст оказался отформатированным? Пока я делаю так:
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;

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

← →
Магнитон Борыч (2004-07-25 20:37) [1]

>Result := Result;

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

← →
Вася (2004-07-25 20:39) [2]

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:42) [3]

>Вася (25.07.04 20:39) [2]

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

← →
Вася (2004-07-25 20:43) [4]

Пусть сам пишет где надо. Это все лишь пример чтени текстового файла.

← →
parovoZZ © (2004-07-25 21:03) [5]

>Вас точно зовут Андрей?

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

← →
parovoZZ © (2004-07-25 21:21) [6]

В принципе работает, но появился совершенно ненужный символ - начало строки. Может есть какой-нить способ также профессионально отрисовать этот текст, но построчно. Просто мне нужно знать длину строки в каждую еденицу времени, а DrawText не очень удобен. Приходится использовать TextOut, но она не понимает форматирванного теста, конец абзаца приходится искать вручную и также вручную переводить каретку.

← →
Anatoly Podgoretsky © (2004-07-25 21:40) [7]

Переписать все нафиг

← →
parovoZZ © (2004-07-25 21:46) [8]

В смысле?

← →
Anatoly Podgoretsky © (2004-07-25 21:51) [9]

Так поступают настоящие русские программисты.

← →
Serge_ (2004-07-25 23:54) [10]

s:tstringlist
s:=tstringlist.create;
s.loadfromfile(filename);
FormatedText:=s.text

← →
parovoZZ © (2004-07-26 00:42) [11]

А я вообще не настоящий программист, так, понарошку.

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

← →
Fay © (2004-07-26 02:23) [12]

Наверное в Classes

← →
Anatoly Podgoretsky © (2004-07-26 09:10) [13]

Serge_ (25.07.04 23:54) [10]
Настоящий русский программист.

← →
Fay © (2004-07-26 09:11) [14]

2Anatoly Podgoretsky © (26.07.04 09:10) [13]
8)

Извините меня не грамотного, но как всё переписать нафиг? Я ж только учусь.

Ветку удалили.

А зачем мне ещё приплюслвывать classes?

Открытие файла Найти похожие ветки