Searched refs:Stname (Results 1 – 3 of 3) sorted by last modified time
86 Stname : Integer; variable346 Get_Word (Stname);368 for J in Strings (Stname)'First .. Strings (Stname)'Last - 2 loop369 if Strings (Stname) (J) = 'G'370 and then Strings (Stname) (J + 1) = 'P'371 and then Strings (Stname) (J + 2) in '0' .. '9'382 S_Data.Name := new String'(Strings (Stname).all);