Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem chat GPT

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.

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny