[210521] 문자열 자르기

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Str, NowStr : string;
  Strlen : integer;
begin

  str := '2021-05-21 09:00:00';
  Strlen := Pos('09', str);
  writeln(Strlen);
  // Strlen : 12
  NowStr := copy(str, Strlen, Length(str)-1);
  Writeln(NowStr);
  // NowStr : 09:00:00

end.