From 9e0edbb225d179b814e147c0100809375ab9c9d3 Mon Sep 17 00:00:00 2001 From: Timothy Warren Date: Thu, 30 Sep 2021 14:53:07 -0400 Subject: [PATCH] Remove old project files --- .../firstproject/firstproject.lpi | 63 ------------------- .../firstproject/firstproject.lpr | 18 ------ .../firstproject/firstproject.lps | 22 ------- .../pointer_project/pointer_project.lpi | 60 ------------------ .../pointer_project/pointer_project.lpr | 20 ------ .../pointer_project/pointer_project.lps | 35 ----------- .../shortstrings/stortstrings.lpi | 63 ------------------- .../shortstrings/stortstrings.lpr | 13 ---- .../shortstrings/stortstrings.lps | 22 ------- .../simple_types/simple_types.lpi | 63 ------------------- .../simple_types/simple_types.lpr | 32 ---------- .../simple_types/simple_types.lps | 22 ------- .../string_functions/string_functions.lpi | 63 ------------------- .../string_functions/string_functions.lpr | 22 ------- .../string_functions/string_functions.lps | 22 ------- .../typed_const/typed_const.lpi | 59 ----------------- .../typed_const/typed_const.lpr | 28 --------- .../typed_const/typed_const.lps | 22 ------- 18 files changed, 649 deletions(-) delete mode 100644 __old_lazarus_projects/firstproject/firstproject.lpi delete mode 100644 __old_lazarus_projects/firstproject/firstproject.lpr delete mode 100644 __old_lazarus_projects/firstproject/firstproject.lps delete mode 100644 __old_lazarus_projects/pointer_project/pointer_project.lpi delete mode 100644 __old_lazarus_projects/pointer_project/pointer_project.lpr delete mode 100644 __old_lazarus_projects/pointer_project/pointer_project.lps delete mode 100644 __old_lazarus_projects/shortstrings/stortstrings.lpi delete mode 100644 __old_lazarus_projects/shortstrings/stortstrings.lpr delete mode 100644 __old_lazarus_projects/shortstrings/stortstrings.lps delete mode 100644 __old_lazarus_projects/simple_types/simple_types.lpi delete mode 100644 __old_lazarus_projects/simple_types/simple_types.lpr delete mode 100644 __old_lazarus_projects/simple_types/simple_types.lps delete mode 100644 __old_lazarus_projects/string_functions/string_functions.lpi delete mode 100644 __old_lazarus_projects/string_functions/string_functions.lpr delete mode 100644 __old_lazarus_projects/string_functions/string_functions.lps delete mode 100644 __old_lazarus_projects/typed_const/typed_const.lpi delete mode 100644 __old_lazarus_projects/typed_const/typed_const.lpr delete mode 100644 __old_lazarus_projects/typed_const/typed_const.lps diff --git a/__old_lazarus_projects/firstproject/firstproject.lpi b/__old_lazarus_projects/firstproject/firstproject.lpi deleted file mode 100644 index 1afb68d..0000000 --- a/__old_lazarus_projects/firstproject/firstproject.lpi +++ /dev/null @@ -1,63 +0,0 @@ - - - - - - - - - - - - - - <UseAppBundle Value="False"/> - <ResourceType Value="res"/> - </General> - <BuildModes Count="1"> - <Item1 Name="Default" Default="True"/> - </BuildModes> - <PublishOptions> - <Version Value="2"/> - <UseFileFilters Value="True"/> - </PublishOptions> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0"/> - </RunParams> - <Units Count="1"> - <Unit0> - <Filename Value="firstproject.lpr"/> - <IsPartOfProject Value="True"/> - </Unit0> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="11"/> - <Target> - <Filename Value="firstproject"/> - </Target> - <SearchPaths> - <IncludeFiles Value="$(ProjOutDir)"/> - <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> - </SearchPaths> - <Linking> - <Debugging> - <DebugInfoType Value="dsDwarf2"/> - </Debugging> - </Linking> - </CompilerOptions> - <Debugging> - <Exceptions Count="3"> - <Item1> - <Name Value="EAbort"/> - </Item1> - <Item2> - <Name Value="ECodetoolError"/> - </Item2> - <Item3> - <Name Value="EFOpenError"/> - </Item3> - </Exceptions> - </Debugging> -</CONFIG> diff --git a/__old_lazarus_projects/firstproject/firstproject.lpr b/__old_lazarus_projects/firstproject/firstproject.lpr deleted file mode 100644 index 2e08a51..0000000 --- a/__old_lazarus_projects/firstproject/firstproject.lpr +++ /dev/null @@ -1,18 +0,0 @@ -program firstproject; - -{$mode objfpc}{$H+} - -uses - {$IFDEF UNIX}{$IFDEF UseCThreads} - cthreads, - {$ENDIF}{$ENDIF} - Classes - { you can add units after this }; - -begin - writeln('A Free Pascal progam'); - {$IFDEF WINDOWS} - readln; - {$ENDIF} -end. - diff --git a/__old_lazarus_projects/firstproject/firstproject.lps b/__old_lazarus_projects/firstproject/firstproject.lps deleted file mode 100644 index 3cfc735..0000000 --- a/__old_lazarus_projects/firstproject/firstproject.lps +++ /dev/null @@ -1,22 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectSession> - <Version Value="11"/> - <BuildModes Active="Default"/> - <Units Count="1"> - <Unit0> - <Filename Value="firstproject.lpr"/> - <IsPartOfProject Value="True"/> - <IsVisibleTab Value="True"/> - <CursorPos X="11" Y="16"/> - <UsageCount Value="20"/> - <Loaded Value="True"/> - </Unit0> - </Units> - <JumpHistory HistoryIndex="-1"/> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0" ActiveMode=""/> - </RunParams> - </ProjectSession> -</CONFIG> diff --git a/__old_lazarus_projects/pointer_project/pointer_project.lpi b/__old_lazarus_projects/pointer_project/pointer_project.lpi deleted file mode 100644 index 01f21fc..0000000 --- a/__old_lazarus_projects/pointer_project/pointer_project.lpi +++ /dev/null @@ -1,60 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectOptions> - <Version Value="11"/> - <PathDelim Value="\"/> - <General> - <Flags> - <MainUnitHasCreateFormStatements Value="False"/> - <MainUnitHasTitleStatement Value="False"/> - <MainUnitHasScaledStatement Value="False"/> - </Flags> - <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> - <Title Value="pointer_project"/> - <UseAppBundle Value="False"/> - <ResourceType Value="res"/> - </General> - <BuildModes Count="1"> - <Item1 Name="Default" Default="True"/> - </BuildModes> - <PublishOptions> - <Version Value="2"/> - <UseFileFilters Value="True"/> - </PublishOptions> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0"/> - </RunParams> - <Units Count="1"> - <Unit0> - <Filename Value="pointer_project.lpr"/> - <IsPartOfProject Value="True"/> - </Unit0> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="11"/> - <PathDelim Value="\"/> - <Target> - <Filename Value="pointer_project"/> - </Target> - <SearchPaths> - <IncludeFiles Value="$(ProjOutDir)"/> - <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> - </SearchPaths> - </CompilerOptions> - <Debugging> - <Exceptions Count="3"> - <Item1> - <Name Value="EAbort"/> - </Item1> - <Item2> - <Name Value="ECodetoolError"/> - </Item2> - <Item3> - <Name Value="EFOpenError"/> - </Item3> - </Exceptions> - </Debugging> -</CONFIG> diff --git a/__old_lazarus_projects/pointer_project/pointer_project.lpr b/__old_lazarus_projects/pointer_project/pointer_project.lpr deleted file mode 100644 index a4067c2..0000000 --- a/__old_lazarus_projects/pointer_project/pointer_project.lpr +++ /dev/null @@ -1,20 +0,0 @@ -program pointer_project; - -{$mode objfpc}{$H+} - -type Plongint = ^longint; - -var - anInt: longint = 243; - intPtr: Plongint; - -begin - intPtr := @anInt; - WriteLn('The value of intPtr^ is ', intPtr^); - Inc(intPtr^, 4); - WriteLn('The value of anInt after Inc(intPtr^, 4) is: ',anInt); - {$IFDEF WINDOWS} - readln; - {$ENDIF} -end. - diff --git a/__old_lazarus_projects/pointer_project/pointer_project.lps b/__old_lazarus_projects/pointer_project/pointer_project.lps deleted file mode 100644 index 3cd0a7e..0000000 --- a/__old_lazarus_projects/pointer_project/pointer_project.lps +++ /dev/null @@ -1,35 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectSession> - <PathDelim Value="\"/> - <Version Value="11"/> - <BuildModes Active="Default"/> - <Units Count="2"> - <Unit0> - <Filename Value="pointer_project.lpr"/> - <IsPartOfProject Value="True"/> - <EditorIndex Value="-1"/> - <CursorPos X="38" Y="18"/> - <UsageCount Value="20"/> - </Unit0> - <Unit1> - <Filename Value="F:\Collector\unit1.pas"/> - <UnitName Value="Unit1"/> - <IsVisibleTab Value="True"/> - <CursorPos Y="34"/> - <UsageCount Value="10"/> - <Loaded Value="True"/> - </Unit1> - </Units> - <JumpHistory Count="1"> - <Position1> - <Filename Value="F:\Collector\unit1.pas"/> - <Caret TopLine="27"/> - </Position1> - </JumpHistory> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0" ActiveMode=""/> - </RunParams> - </ProjectSession> -</CONFIG> diff --git a/__old_lazarus_projects/shortstrings/stortstrings.lpi b/__old_lazarus_projects/shortstrings/stortstrings.lpi deleted file mode 100644 index 550b424..0000000 --- a/__old_lazarus_projects/shortstrings/stortstrings.lpi +++ /dev/null @@ -1,63 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectOptions> - <Version Value="11"/> - <General> - <Flags> - <MainUnitHasCreateFormStatements Value="False"/> - <MainUnitHasTitleStatement Value="False"/> - <MainUnitHasScaledStatement Value="False"/> - </Flags> - <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> - <Title Value="stortstrings"/> - <UseAppBundle Value="False"/> - <ResourceType Value="res"/> - </General> - <BuildModes Count="1"> - <Item1 Name="Default" Default="True"/> - </BuildModes> - <PublishOptions> - <Version Value="2"/> - <UseFileFilters Value="True"/> - </PublishOptions> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0"/> - </RunParams> - <Units Count="1"> - <Unit0> - <Filename Value="stortstrings.lpr"/> - <IsPartOfProject Value="True"/> - </Unit0> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="11"/> - <Target> - <Filename Value="stortstrings"/> - </Target> - <SearchPaths> - <IncludeFiles Value="$(ProjOutDir)"/> - <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> - </SearchPaths> - <Linking> - <Debugging> - <DebugInfoType Value="dsDwarf2"/> - </Debugging> - </Linking> - </CompilerOptions> - <Debugging> - <Exceptions Count="3"> - <Item1> - <Name Value="EAbort"/> - </Item1> - <Item2> - <Name Value="ECodetoolError"/> - </Item2> - <Item3> - <Name Value="EFOpenError"/> - </Item3> - </Exceptions> - </Debugging> -</CONFIG> diff --git a/__old_lazarus_projects/shortstrings/stortstrings.lpr b/__old_lazarus_projects/shortstrings/stortstrings.lpr deleted file mode 100644 index 5acddd2..0000000 --- a/__old_lazarus_projects/shortstrings/stortstrings.lpr +++ /dev/null @@ -1,13 +0,0 @@ -program stortstrings; - -{$mode objfpc}{$H+} - -var testStr: string[10] = 'Lazarus'; -begin - WriteLn('This shows testStr enclosed by square brackets [', testStr, ']'); - WriteLn('testStr''s length is ', Length(testStr), ' characters'); - {$IFDEF WINDOWS} - ReadLn; - {$ENDIF} -end. - diff --git a/__old_lazarus_projects/shortstrings/stortstrings.lps b/__old_lazarus_projects/shortstrings/stortstrings.lps deleted file mode 100644 index 2cdc096..0000000 --- a/__old_lazarus_projects/shortstrings/stortstrings.lps +++ /dev/null @@ -1,22 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectSession> - <Version Value="11"/> - <BuildModes Active="Default"/> - <Units Count="1"> - <Unit0> - <Filename Value="stortstrings.lpr"/> - <IsPartOfProject Value="True"/> - <IsVisibleTab Value="True"/> - <CursorPos X="11" Y="11"/> - <UsageCount Value="20"/> - <Loaded Value="True"/> - </Unit0> - </Units> - <JumpHistory HistoryIndex="-1"/> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0" ActiveMode=""/> - </RunParams> - </ProjectSession> -</CONFIG> diff --git a/__old_lazarus_projects/simple_types/simple_types.lpi b/__old_lazarus_projects/simple_types/simple_types.lpi deleted file mode 100644 index d04abf1..0000000 --- a/__old_lazarus_projects/simple_types/simple_types.lpi +++ /dev/null @@ -1,63 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectOptions> - <Version Value="11"/> - <General> - <Flags> - <MainUnitHasCreateFormStatements Value="False"/> - <MainUnitHasTitleStatement Value="False"/> - <MainUnitHasScaledStatement Value="False"/> - </Flags> - <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> - <Title Value="simple_types"/> - <UseAppBundle Value="False"/> - <ResourceType Value="res"/> - </General> - <BuildModes Count="1"> - <Item1 Name="Default" Default="True"/> - </BuildModes> - <PublishOptions> - <Version Value="2"/> - <UseFileFilters Value="True"/> - </PublishOptions> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0"/> - </RunParams> - <Units Count="1"> - <Unit0> - <Filename Value="simple_types.lpr"/> - <IsPartOfProject Value="True"/> - </Unit0> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="11"/> - <Target> - <Filename Value="simple_types"/> - </Target> - <SearchPaths> - <IncludeFiles Value="$(ProjOutDir)"/> - <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> - </SearchPaths> - <Linking> - <Debugging> - <DebugInfoType Value="dsDwarf2"/> - </Debugging> - </Linking> - </CompilerOptions> - <Debugging> - <Exceptions Count="3"> - <Item1> - <Name Value="EAbort"/> - </Item1> - <Item2> - <Name Value="ECodetoolError"/> - </Item2> - <Item3> - <Name Value="EFOpenError"/> - </Item3> - </Exceptions> - </Debugging> -</CONFIG> diff --git a/__old_lazarus_projects/simple_types/simple_types.lpr b/__old_lazarus_projects/simple_types/simple_types.lpr deleted file mode 100644 index a0f0916..0000000 --- a/__old_lazarus_projects/simple_types/simple_types.lpr +++ /dev/null @@ -1,32 +0,0 @@ -program simple_types; - -{$mode objfpc}{$H+} - -const - pName='simple_types'; - tab=#9; - -var - smallInteger: SmallInt= -37; - started: boolean = false; - - -begin - WriteLn('This program is called ', tab, tab, '"', pName, '"', sLineBreak); - - WriteLn('When initalised smallInteger has the value: ', smallInteger); - WriteLn('When initialized started has the value: ', started, sLineBreak); - - smallInteger += 100; - WriteLn('After adding 100 to smallInteger its value is: ', smallInteger); - started:= not started; - WriteLn('Negating started gives it the new value: ', started, sLineBreak); - - WriteLn('The highest value a SmallInt can store is: ', High(SmallInt)); - WriteLn('The lowest value a SmallInt can store is: ', Low(SmallInt)); - - {$IFDEF WINDOWS} - readln; - {$ENDIF} -end. - diff --git a/__old_lazarus_projects/simple_types/simple_types.lps b/__old_lazarus_projects/simple_types/simple_types.lps deleted file mode 100644 index 06691f3..0000000 --- a/__old_lazarus_projects/simple_types/simple_types.lps +++ /dev/null @@ -1,22 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectSession> - <Version Value="11"/> - <BuildModes Active="Default"/> - <Units Count="1"> - <Unit0> - <Filename Value="simple_types.lpr"/> - <IsPartOfProject Value="True"/> - <IsVisibleTab Value="True"/> - <CursorPos X="11" Y="30"/> - <UsageCount Value="20"/> - <Loaded Value="True"/> - </Unit0> - </Units> - <JumpHistory HistoryIndex="-1"/> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0" ActiveMode=""/> - </RunParams> - </ProjectSession> -</CONFIG> diff --git a/__old_lazarus_projects/string_functions/string_functions.lpi b/__old_lazarus_projects/string_functions/string_functions.lpi deleted file mode 100644 index 3188fd1..0000000 --- a/__old_lazarus_projects/string_functions/string_functions.lpi +++ /dev/null @@ -1,63 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectOptions> - <Version Value="11"/> - <General> - <Flags> - <MainUnitHasCreateFormStatements Value="False"/> - <MainUnitHasTitleStatement Value="False"/> - <MainUnitHasScaledStatement Value="False"/> - </Flags> - <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> - <Title Value="string_functions"/> - <UseAppBundle Value="False"/> - <ResourceType Value="res"/> - </General> - <BuildModes Count="1"> - <Item1 Name="Default" Default="True"/> - </BuildModes> - <PublishOptions> - <Version Value="2"/> - <UseFileFilters Value="True"/> - </PublishOptions> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0"/> - </RunParams> - <Units Count="1"> - <Unit0> - <Filename Value="string_functions.lpr"/> - <IsPartOfProject Value="True"/> - </Unit0> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="11"/> - <Target> - <Filename Value="string_functions"/> - </Target> - <SearchPaths> - <IncludeFiles Value="$(ProjOutDir)"/> - <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> - </SearchPaths> - <Linking> - <Debugging> - <DebugInfoType Value="dsDwarf2"/> - </Debugging> - </Linking> - </CompilerOptions> - <Debugging> - <Exceptions Count="3"> - <Item1> - <Name Value="EAbort"/> - </Item1> - <Item2> - <Name Value="ECodetoolError"/> - </Item2> - <Item3> - <Name Value="EFOpenError"/> - </Item3> - </Exceptions> - </Debugging> -</CONFIG> diff --git a/__old_lazarus_projects/string_functions/string_functions.lpr b/__old_lazarus_projects/string_functions/string_functions.lpr deleted file mode 100644 index 48d6c6b..0000000 --- a/__old_lazarus_projects/string_functions/string_functions.lpr +++ /dev/null @@ -1,22 +0,0 @@ -program string_functions; - -{$mode objfpc}{$H+} - -uses strutils, sysutils; - -var st: string; - -begin - WriteLn('Enter a word or pharase ([Enter] completes the entry)'); - ReadLn(st); - WriteLn('You typed: ', st); - WriteLn('Your text converted to uppercase: ', UpperCase(st)); - WriteLn('Your text converted to lowercase: ', LowerCase(st)); - WriteLn('Your text converted to proper case: ', - AnsiProperCase(st, StdWordDelims)); - WriteLn('Your text reversed: ', ReverseString(st)); - {$IFDEF WINDOWS} - ReadLn; - {$ENDIF} -end. - diff --git a/__old_lazarus_projects/string_functions/string_functions.lps b/__old_lazarus_projects/string_functions/string_functions.lps deleted file mode 100644 index 8d677be..0000000 --- a/__old_lazarus_projects/string_functions/string_functions.lps +++ /dev/null @@ -1,22 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectSession> - <Version Value="11"/> - <BuildModes Active="Default"/> - <Units Count="1"> - <Unit0> - <Filename Value="string_functions.lpr"/> - <IsPartOfProject Value="True"/> - <IsVisibleTab Value="True"/> - <CursorPos X="11" Y="20"/> - <UsageCount Value="20"/> - <Loaded Value="True"/> - </Unit0> - </Units> - <JumpHistory HistoryIndex="-1"/> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0" ActiveMode=""/> - </RunParams> - </ProjectSession> -</CONFIG> diff --git a/__old_lazarus_projects/typed_const/typed_const.lpi b/__old_lazarus_projects/typed_const/typed_const.lpi deleted file mode 100644 index 04d6aef..0000000 --- a/__old_lazarus_projects/typed_const/typed_const.lpi +++ /dev/null @@ -1,59 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectOptions> - <Version Value="11"/> - <PathDelim Value="\"/> - <General> - <Flags> - <MainUnitHasCreateFormStatements Value="False"/> - <MainUnitHasScaledStatement Value="False"/> - </Flags> - <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> - <Title Value="My Application"/> - <UseAppBundle Value="False"/> - <ResourceType Value="res"/> - </General> - <BuildModes Count="1"> - <Item1 Name="Default" Default="True"/> - </BuildModes> - <PublishOptions> - <Version Value="2"/> - <UseFileFilters Value="True"/> - </PublishOptions> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0"/> - </RunParams> - <Units Count="1"> - <Unit0> - <Filename Value="typed_const.lpr"/> - <IsPartOfProject Value="True"/> - </Unit0> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="11"/> - <PathDelim Value="\"/> - <Target> - <Filename Value="typed_const"/> - </Target> - <SearchPaths> - <IncludeFiles Value="$(ProjOutDir)"/> - <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> - </SearchPaths> - </CompilerOptions> - <Debugging> - <Exceptions Count="3"> - <Item1> - <Name Value="EAbort"/> - </Item1> - <Item2> - <Name Value="ECodetoolError"/> - </Item2> - <Item3> - <Name Value="EFOpenError"/> - </Item3> - </Exceptions> - </Debugging> -</CONFIG> diff --git a/__old_lazarus_projects/typed_const/typed_const.lpr b/__old_lazarus_projects/typed_const/typed_const.lpr deleted file mode 100644 index 74263b3..0000000 --- a/__old_lazarus_projects/typed_const/typed_const.lpr +++ /dev/null @@ -1,28 +0,0 @@ -program typed_const; - -{$mode objfpc}{$H+} - -Function GetAName: string; -const lastName: string = ''; -var constName: string = 'Lazarus'; -begin - WriteLn('[Last name entered was "', lastName, '"]'); - WriteLn('[Value of constName is "', constName, '"]'); - Write('Enter a new name: '); - ReadLn(Result); - lastName := Result; -end; - -begin - WriteLn('First invocation of GetAName'); - WriteLn(GetAName); - WriteLn; - WriteLn('Second invocation of GetAName'); - WriteLn(GetAName); - WriteLn; - WriteLn('[Finished]'); - {$IFDEF WINDOWS} - ReadLn; - {$ENDIF} -end. - diff --git a/__old_lazarus_projects/typed_const/typed_const.lps b/__old_lazarus_projects/typed_const/typed_const.lps deleted file mode 100644 index 0f81e49..0000000 --- a/__old_lazarus_projects/typed_const/typed_const.lps +++ /dev/null @@ -1,22 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<CONFIG> - <ProjectSession> - <PathDelim Value="\"/> - <Version Value="11"/> - <BuildModes Active="Default"/> - <Units Count="1"> - <Unit0> - <Filename Value="typed_const.lpr"/> - <IsPartOfProject Value="True"/> - <IsVisibleTab Value="True"/> - <UsageCount Value="20"/> - <Loaded Value="True"/> - </Unit0> - </Units> - <JumpHistory HistoryIndex="-1"/> - <RunParams> - <FormatVersion Value="2"/> - <Modes Count="0" ActiveMode=""/> - </RunParams> - </ProjectSession> -</CONFIG>