Size: a a a
D
RS
StrTok('','_','')VA
StrTok('','_','')AS
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;
И что оно делает? Видимо это из какой-то версии DelphiAS
StrTok('','_','')RS
RS
UpperFirst_ вложенная функция локальная. Но правда это мне ничего объясняет. Что значит с состоянием? Или речь прочь StrTok? Ее в модуле вроде нет, если она действительно где-то у него по своему реализованаRS
StrTok не вложенная функция. Да, это многое бы объяснило. Но вот в том то и дело, что нетAS
UpperFirst_ вложенная функция локальная. Но правда это мне ничего объясняет. Что значит с состоянием? Или речь прочь StrTok? Ее в модуле вроде нет, если она действительно где-то у него по своему реализованаRS
VA
КС
AI
VA
Д
КС
КС
VA
КС
DB