Código Delphi [-]… result := showModal = mrok; if result then begin SetLength(Str, Length(Edit1.Text)); Move(Edit1.Text[1], Str[1], Length(Str)); end; ...
… result := showModal = mrok; if result then begin SetLength(Str, Length(Edit1.Text)); Move(Edit1.Text[1], Str[1], Length(Str)); end; ...