Examples: Improve string comparison.

git-svn-id: trunk@64505 -

examples/SynEdit/Completion/unit1.pas

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

examples/codepageconverter/lazconverter.lpi

@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="12"/>
     <General>
       <Flags>
         <SaveClosedFiles Value="False"/>
         <SaveOnlyProjectUnits Value="True"/>
         <LRSInOutputDirectory Value="False"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="lazconverter"/>
       <ResourceType Value="res"/>
     </General>
@@ -23,13 +23,12 @@
     <PublishOptions>
       <Version Value="2"/>
       <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>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>

examples/codepageconverter/mainunit.pas

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