Priklad pro hratky:
Zadani:
pro následující adresy:
stana@seznam.cz
karel357@tiscali.cz
josef.vlasek.245@mail.com
k.stanek@msp.justice.cz
potrebuju Delphi kod, ktery vytcori array s mailovymi domenami za pouziti regexp
a vysledek ulozi do array AVysledneDomeny
Vysledek
var
Emails: array of String;
Email: String;
RegEx: TRegEx;
Match: TMatch;
AVysledneDomeny : TStringDynArray;
begin
SetLength(Emails, 4);
Emails[0] := 'stana@seznam.cz';
Emails[1] := 'karel357@tiscali.cz';
Emails[2] := 'josef.vlasek.245@mail.com';
Emails[3] := 'k.stanek@msp.justice.cz';
RegEx := TRegEx.Create('@(.*)', [roIgnoreCase]);
SetLength(AVysledneDomeny, 4);
for var i := 0 to high(Emails) do
begin
Match := RegEx.Match(Emails[i]);
if Match.Success then
AVysledneDomeny[i] := Match.Groups[1].Value;
end;
RegEx.Free;
end.