function GetStyle(S:string; var m:TmyStyle):string;
var
n : byte;
ss : string;
begin
n := pos('|', S);
ss := copy(s,1,n-1); // стиль
case ss[length(ss)] of
'N' : m := Norm;
'E' : m := Epig;
'A' : m := Auth;
'1' : m := H1;
'2' : m := H2;
'3' : m := H3;
'4' : m := H4;
'5' : m := H5;
'S' : m := Sub;
'P' : m := Poem;
'C' : m := Citat;
'-' : m := None;
end;// case
delete(s,1,n+1); // текст
result := S;
end;
function GetStr(S:string):string;
var
n : byte;
begin
n := pos('|', S);
delete(s,1,n+1); // текст
result := S;
end;
BEGIN
SytleStack := TList.create;
OutList := TStringList.Create;
// StyleList := TList.Create;
END.
// конец кода
Ну вот и весь исходник.
Успехов.
w_cat.