Du musst einfach nur dein zu testenden String auseinander nehmen und nachsehen was zwischen den
Anführungszeichen steht.
zB. so:
Delphi-Quellcode:
procedure // ...
var
TempStr1:
String;
TempStr2:
String;
begin
// ...
TempStr1 := Copy(SynMemo1.Text, CurPosition-22, 23);
TempStr2 := '
';
SoUndSo := False;
if Pos('
[list=1] 0 then
begin
Delete(TempStr1, 1, length('<ol start="'
));
TempStr2 := Copy(TempStr1, 1, Pos('"'
, TempStr1)-1);
if StrToInt(TempStr2) in [1..100] then SoUndSo := True;
end;
// ...
end;