$
Size: a a a
$
$
_S
RS
_S
AS
RS
_S
RS
AS
AS
RS
_S
AS
DB
GB
AD
AD
RS
function UpperFirst_(AString:string):string;
var
c:string;
begin
c:=StrTok(astring,'_','');
c:=UpperFirst(c);
result:=c;
c:=StrTok('','_','');
while c<>'' do
begin
c:=UpperFirst(c);
result:=result+'_'+c;
c:=StrTok('','_','');
end;
end;
И что оно делает? Видимо это из какой-то версии DelphiVA
function UpperFirst_(AString:string):string;
var
c:string;
begin
c:=StrTok(astring,'_','');
c:=UpperFirst(c);
result:=c;
c:=StrTok('','_','');
while c<>'' do
begin
c:=UpperFirst(c);
result:=result+'_'+c;
c:=StrTok('','_','');
end;
end;
И что оно делает? Видимо это из какой-то версии Delphi