paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 08:38:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented installing static packages

Browse Source 
git-svn-id: trunk@3417 -
This commit is contained in:
mattias 2002-10-01 15:45:47 +00:00
parent d6d3d3c853
commit 5ff70ab6fb
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/ideprocs.pp
View File

@ -130,6 +130,7 @@ function SimpleSyntaxToRegExpr(const Src: string): string;
function NameToValidIdentifier(const s: string): string;
function BinaryStrToText(const s: string): string;
function SplitString(const s: string; Delimiter: char): TStringList;
function SpecialCharsToSpaces(const s: string): string;
// translation/internationalization/localization
procedure TranslateResourceStrings(const BaseDirectory, CustomLang: string);
@ -149,6 +150,7 @@ function CompareCaret(const FirstCaret, SecondCaret: TPoint): integer;
procedure CheckList(List: TList; TestListNil, TestDoubles, TestNils: boolean);
procedure CheckEmptyListCut(List1, List2: TList);
function CompareBoolean(b1, b2: boolean): integer;
function AnsiSearchInStringList(List: TStrings; const s: string): integer;
const
{$IFDEF Win32}
@ -867,6 +869,15 @@ begin
Result:=-1;
end;
{-------------------------------------------------------------------------------
function AnsiSearchInStringList(List: TStrings; const s: string): integer;
-------------------------------------------------------------------------------}
function AnsiSearchInStringList(List: TStrings; const s: string): integer;
begin
Result:=List.Count-1;
while (Result>=0) and (AnsiCompareText(List[Result],s)<>0) do dec(Result);
end;
{-------------------------------------------------------------------------------
function TrimSearchPath(const SearchPath, BaseDirectory: string): boolean;
@ -1083,6 +1094,21 @@ begin
Lang := Copy(Lang, 1, 5);
end;
{-------------------------------------------------------------------------------
function SpecialCharsToSpaces(const s: string): string;
-------------------------------------------------------------------------------}
function SpecialCharsToSpaces(const s: string): string;
var
i: Integer;
begin
Result:=s;
for i:=1 to length(Result) do
if Result[i]<' ' then Result[i]:=' ';
if Result='' then exit;
if (Result[1]=' ') or (Result[length(Result)]=' ') then
Result:=Trim(Result);
end;
{-------------------------------------------------------------------------------
TranslateResourceStrings