Функция Read для стрингов

← →
Боян Георгиев (2003-11-16 14:33) [0]

Здравствуйте мастера!
Проблем такой:
програма надо читать следующий текстовый файл.

abc dc adcd daddce doer

Я изпользуваю процедуру Read но она возврощает целы строк
abc dc adcd daddce doer
Мне нужна быстрая функция, которая прочитать низы раздельно:

Пример:

A: string
-------
Read(MyTextFile, A);
{A = abc}
Read(MyTextFile, A);
{A = dc}
Read(MyTextFile, A);
{A = adcd}
...

← →
Ломброзо © (2003-11-16 14:44) [1]

program Project2;
{$APPTYPE CONSOLE}
uses Windows, SysUtils, ActiveX, ComObj;

var F: TextFile;
CurrString: string;
RE, Matches: OleVariant;
Match : string;
i : integer;
begin
OleInitialize(nil);
RE := CreateOleObject("VBScript.RegExp");
RE.Pattern := "[^\s]+";
RE.Global := true;
AssignFile(F, "C:\a.txt");
Reset(F);
while not EOF(F) do
begin
Readln(F, CurrString);
Matches := RE.Execute(CurrString);
for i := 0 to Matches.COunt - 1 do
begin
Match := Matches.Item[i];
Writeln(Match);
end;
end;
Matches := unassigned;
RE := unassigned;
Readln;
end.

между словами может быть сколько угодно пробелов, переносов строки, возвратов каретки и прочих пробельных символов

Функция Read для стрингов Найти похожие ветки