paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 09:22:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: Improve string comparison.

Browse Source 
git-svn-id: trunk@64505 -
This commit is contained in:
juha 2021-02-08 19:09:22 +00:00
parent f76b3198f9
commit 87ab5c4219
3 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/SynEdit/Completion/unit1.pas
View File

@ -5,7 +5,10 @@ unit Unit1;
interface interface
uses uses
SysUtils, Forms, StdCtrls, ExtCtrls, SynEdit, SynCompletion; SysUtils,
Forms, StdCtrls, ExtCtrls,
LazStringUtils,
SynEdit, SynCompletion;
type type
@ -65,7 +68,7 @@ procedure TForm1.DoExecute(Sender: TObject);
*) *)
procedure Add(s: String); procedure Add(s: String);
begin begin
if pos(lowercase(SynCompletion1.CurrentString), lowercase(s)) = 1 then if LazStartsText(SynCompletion1.CurrentString, s) then
SynCompletion1.ItemList.Add(s); SynCompletion1.ItemList.Add(s);
end; end;
begin begin
@ -98,7 +101,7 @@ procedure TForm1.DoSearchPosition(var APosition: integer);
*) *)
procedure Add(s: String); procedure Add(s: String);
begin begin
if pos(lowercase(SynCompletion1.CurrentString), lowercase(s)) = 1 then if LazStartsText(SynCompletion1.CurrentString, s) then
SynCompletion1.ItemList.Add(s); SynCompletion1.ItemList.Add(s);
end; end;
begin begin

13
examples/codepageconverter/lazconverter.lpi
View File

@ -1,15 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/> <SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/> <SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="lazconverter"/> <Title Value="lazconverter"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
</General> </General>
@ -23,13 +23,12 @@
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="/home/barko/tempo/out/"/> <DestinationDirectory Value="/home/barko/tempo/out/"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

2
examples/codepageconverter/mainunit.pas
View File

@ -226,7 +226,7 @@ begin
end; end;
if ok then if ok then
begin begin
if uppercase(ExtractFileExt(FileListBox1.Items[i]))='.LRS' then if CompareFileExtQuick(FileListBox1.Items[i], 'lrs') = 0 then
begin begin
if ConvertMeLRS(tmp) then if ConvertMeLRS(tmp) then
begin begin