Bei mir passiert da nichts. Das Memo bleibt leer
Delphi-Quellcode:
LLines := TStringList.Create;
try
LFileToParse := 'Language.EN.pas';
if FileExists(LFileToParse) then
begin
LLines.LoadFromFile(LFileToParse);
if LLines.Count > 0 then
begin
for M in TRegEx.Matches(LLines.Text, '^[a-z]+$') do // kannst dich auch mit M.NextMatch durchhangeln, statt dem FOR
Memo1.Lines.Add(M.Index.ToString + ' ' + M.Value);
if TRegEx.IsMatch(LLines.Text, '^[a-z]+$', [roIgnoreCase]) then
begin
end;
end;
end;
finally
LLines.Free;
end;