Проблема открытия текстового файла, если в нем есть кавычки!

← →
Dextor (2004-10-07 18:42) [0]

Дарова! Подскажите, PLEASE, че за ... ? Короче:

var
F: TextFile;
S: String;

begin
AssignFile(F, "...");
Reset(F);
Read(F, S);
Reset(F);
Memo1.Lines.Text := S;
CloseFile(F);
end;

короче если в файле есть ковычки, он читает до них!!! А дальше не фига!

Как это испрваить???

И еще, если вас не затруднит:

var
F: TextFile;
S: String;

begin
AssignFile(F, "...");
Reset(F);
Read(F, S);
Reset(F);
CloseFile(F);
end;

Как прочитать из открытыго файла, все, что допустим после слова "start" и перед словом "End" (к примеру, все где инть в середине файла)

file:

dsfsdfwfwefw
efwefwefwefwerfr
gfegegegergg "start"
dsfdwfwf
wdfwf
th
yj
k
ik
il
o
l
"end"

← →
begin...end © (2004-10-07 18:48) [1]

Дарова!

> Reset(F);
> Read(F, S);
> Reset(F);
> Memo1.Lines.Text := S;

Чё это за ..... ?

← →
Gero © (2004-10-07 18:51) [2]

> var
> F: TextFile;
> S: String;
>
> begin
> AssignFile(F, "...");
> Reset(F);
> Read(F, S);
> Reset(F);
> Memo1.Lines.Text := S;
> CloseFile(F);
> end;

Memo.Lines.LoadFromFile

← →
Dextor (2004-10-07 22:06) [3]

Впринципе понятно, что Memo1.Lines.LoadFromFile !
А как:
И еще, если вас не затруднит:

var
F: TextFile;
S: String;

begin
AssignFile(F, "...");
Reset(F);
Read(F, S);
Reset(F);
CloseFile(F);
end;

Как прочитать из открытыго файла, все, что допустим после слова "start" и перед словом "End" (к примеру, все где инть в середине файла)

file:

dsfsdfwfwefw
efwefwefwefwerfr
gfegegegergg "start"
dsfdwfwf
wdfwf
th
yj
k
ik
il
o
l
"end"

← →
kaZaNoVa © (2004-10-07 22:11) [4]

>var
>F: TextFile;
>S: String;
>
>begin
>AssignFile(F, "...");
>Reset(F);
>Read(F, S);
>Reset(F);
>CloseFile(F);
> end;

зачем 2 раз Reset(F); ?

← →
Gero © (2004-10-07 22:53) [5]

> Как прочитать из открытыго файла, все, что допустим после
> слова "start" и перед словом "End" (к примеру, все где инть
> в середине файла)

var S: string; Start: Boolean; List: TStringList; ... Start := False; while not SeekEof(F) do begin Readln(F, S); if Pos("start", S) > 0 then Start := True else if Pos("end", S) > 0 then Break else if Start then List.Add(S); end;

← →
DIS (2004-10-08 18:59) [6]

Хотелось бы продолжить тему
> > Как прочитать из открытыго файла, все, что допустим после
> > слова "start" и перед словом "End" (к примеру, все где
> инть в середине файла)
Есть похожая задача если выполнить следующий код вылетает ошибка 104 - если я мне не изменяет память это означает типа файл не открыт или не прочитан. а файл мы читаем так AssignFile(F, "c:\00.prn");? если да то как правильно его вставить в код.
var S: string; Start: Boolean; List: TStringList; F: TextFile; begin Start := False; while not SeekEof(F) do begin Readln(F, S); if Pos("start", S) > 0 then Start := True else if Pos("end", S) > 0 then Break else if Start then List.Add(S); end; end;

> DIS (08.10.04 18:59)

Я тебе дал алгоритм, уже даже переведенный на Delphi.
Именно алгоритм, а не готовую процедуру.
Включай мозги. В хелпе все есть.

Проблема открытия текстового файла, если в нем есть кавычки! Найти похожие ветки