Remove old project files
This commit is contained in:
Timothy Warren
parent
c67eb64364
commit
9e0edbb225
@ -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="firstproject"/>
|
|
||||||
<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>
|
|
||||||
@ -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.
|
|
||||||
|
|
||||||
@ -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>
|
|
||||||
@ -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>
|
|
||||||
@ -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.
|
|
||||||
|
|
||||||
@ -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>
|
|
||||||
@ -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>
|
|
||||||
@ -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.
|
|
||||||
|
|
||||||
@ -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>
|
|
||||||
@ -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>
|
|
||||||
@ -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.
|
|
||||||
|
|
||||||
@ -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>
|
|
||||||
@ -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>
|
|
||||||
@ -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.
|
|
||||||
|
|
||||||
@ -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>
|
|
||||||
@ -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>
|
|
||||||
@ -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.
|
|
||||||
|
|
||||||
@ -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>
|
|
||||||
Loading…
Reference in New Issue
Block a user