-
Function vtPos(Const SS,S:String;p_nFrom:Integer=1):Integer;
Var
nSLen,nSSLen,i,c:Integer;
Begin
Result:=0;
nSSLen:=Length(ss);
nSLen:=Length(s);
If (nSSLen=0) or (nSLen=0) or (p_nFrom=0) Then Exit;
If p_nFrom>0 Then
Begin
c:=1;
For i:=p_nFrom to nSLen Do
If s[i]=ss[c] Then
Begin
Inc(c);
If c=nSSLen+1 Then
Begin
Result:=i-c+2;
Break;
End;
End Else c:=1;
End Else
Begin
p_nFrom:=nSLen+p_nFrom+1;
c:=nSSLen;
For i:=p_nFrom Downto 1 Do
If s[i]=ss[c] Then
Begin
Dec(c);
If c=0 Then
Begin
Result:=i;
Break;
End;
End Else c:=nSSLen;
End;
End;
Function vtCopy(Const s:String;nFrom,nTo:Integer):String;
Begin
Result:=Copy(s,nFrom,nTo-nFrom+1)
End;
Function vtCopyToEnd(Const s:String;nFrom:Integer):String;
Begin
Result:=vtCopy(s,nFrom,Length(s));
End;
Procedure Localize(Const p_strLangFileName:String);
Var
l:TIniFile;
theRoots:TStringList;
t:TStringList;
c,d:TComponent;
i,j:Integer;
strPropName:String;
strPropVal:String;
Function _FindComponent(root:TComponent;Const s:string):TComponent;
Var
n,m:Integer;
r,e:String;
Begin
Result:=root;
n:=vtPos('=',s);
e:=Copy(s,1,n-1);
strPropVal:=vtCopyToEnd(s,n+1);
n:=vtPos('.',e,-1);
If n=0 Then
Begin
strPropName:=e;
Exit;
End;
strPropName:=vtCopyToEnd(e,n+1);
e:=Copy(e,1,n-1);
n:=vtPos('.',e); m:=0;
While n<>0 Do
Begin
r:=vtCopy(e,m+1,n-1);
result:=result.FindComponent(r);
If result=Nil Then Exit;
m:=n; n:=vtPos('.',e,m+1);
End;
r:=vtCopyToEnd(e,m+1);
Result:=Result.FindComponent(r);
End;
Begin
l:=TIniFile.Create(p_strLangFileName);
Try
theRoots:=TStringList.Create;
Try
l.ReadSections(theRoots);
t:=TStringList.Create;
Try
For i:=0 to theRoots.Count-1 Do
Begin
c:=Application.FindComponent(theRoots[i]);
If c=Nil Then Continue;
l.ReadSection(theRoots[i],t);
For j:=0 to t.Count-1 Do
Begin
d:=_FindComponent(c,t[j]);
If d<>Nil Then
SetPropValue(d,strPropName,strPropVal);
End;
End;
Finally
t.Free;
End;
Finally
theRoots.Free;
End;
Finally
l.Free;
End;
End;
-
Поправочка:
d:=_FindComponent(c,t[j]);
заменить на
d := _FindComponent(c, t[j] + '=' + l.ReadString(theRoots[i], t[j], ''));
-
STIGA STANLEY CUP
Артикул: 71-1142-02
Производитель: STIGA
Настольный хоккей "Кубок Стэнли". Прекрасное развлечение для всей семьи. Подвижный хоккеист атакует из-за ворот, а нападающий легко передвигается со своей половины игрового поля на половину противника.
Все игроки объемные и имеют полосы основных команд Торонто и Детройта
Данная модель имеет ручную раскраску хоккеистов
Символика и команды канадского первенства "Кубок Стэнли"
Каждый хоккеист имеет свой номер на спине
Правосторонние устройства для ведения счета
Выбрасыватели шайб
Защитные ограждения из плексигласа на лицевых бортах
Вместе с левым форвардом, который может проходить за ворота противника в позиции Грецки, и центрального форварда, который возвращается в свою собственную зону для построения атаки, есть все необходимые условия для того, чтобы поднять технику Вашей игры на новые высоты. Белые и красные азартно атакуют!
5 490-,
================
STIGA PLAY OFF
Артикул: 71-1143-70
Производитель: STIGA
Настольный хоккей "Решающий матч" с символикой СПОРТМАСТЕР!
Официальная игра Чемпионата Мира по настольному хоккею. Возможность игры клюшкой и коньком. Команды Швеции и Финляндии.
Штампованное ровное поле для интенсивного использования
Стабильные ножки, которые приподнимают игру над столом и делают ее устойчивой
Счетчик очков
Выбрасыватель шайбы
Окантовка из плексиглаза со стороны ворот
4 390-,
-
Хто сдесь?
-
Micro Focus buys Borland Software
The company has also snapped up the application testing division of Compuware for $80 million
Peter Sayer (IDG News Service) 07 May, 2009 04:17:00
Tags: micro focus, mergers & acquistions, borland
Micro Focus International plans to beef up its range of software quality assurance tools with two acquisitions it announced Wednesday.
It has agreed to buy Borland Software, a developer of application lifecycle management tools, for US$75 million, and in a separate deal has also agreed to buy Compuware's application testing and automated software quality business unit for $80 million in cash.
Borland is a shadow of its former self: in May last year it sold Codegear, its software development tools division that published JBuilder, to Embarcadero Technologies for $30 million, and in January it lost its CEO Tod Nielsen to VMware, where he became chief operating officer.
Last year it reported a net loss of $216 million on revenue of $172 million from its remaining application lifecycle management activities.
Micro Focus, a developer of enterprise application modernization and management software based in the U.K., hopes the purchases will help it to enlarge its share of the automated software quality assurance market, which it says is worth over $2 billion annually.
Buying Borland will allow Micro Focus to address a broader market, and bring it new customers, particularly in the U.S., the company said.
It also expects to be able to cut costs significantly by eliminating duplication in the two companies' back-office functions and IT systems.
As for the Compuware products Micro Focus is buying, it will sell those alongside its existing automated software quality product, Data Express.
From last April through this March, Compuware generated around $74 million in revenue and $5 million in pretax profit from its application testing and automated software quality business, Micro Focus said.
Borland has the approval of both companies' boards of directors, but must still win over regulators and its own and Borland's shareholders.
It expects to complete the Compuserve deal by the end of June, and the Borland acquisition late this quarter or early next.
-
Тестовый тест.
|
Есть новые 
Нет новых [134427 +35][b:0][p:0.002]