Código Delphi [-] s1 := 'ABE.P' s2 := 'ABG' if (s1 < s2) then showmessage ('S2 es más grande') else showmessage ('S1 es más grande');
s1 := 'ABE.P' s2 := 'ABG' if (s1 < s2) then showmessage ('S2 es más grande') else showmessage ('S1 es más grande');