Initialer Commit

5 files changed, 185 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..9d8af59
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,10 @@
+gpggraph
+*.bak
+*.ppu
+*.o
+*.zip
+*.tar.gz
+*.out
+lib
+*~
+Log*
diff --git a/gpggraph.lpi b/gpggraph.lpi
new file mode 100644
index 0000000..2cce007
--- /dev/null
+++ b/gpggraph.lpi
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="gpggraph"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <Units Count="1">
+      <Unit0>
+        <Filename Value="gpggraph.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <Target>
+      <Filename Value="gpggraph"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <Checks>
+        <IOChecks Value="True"/>
+        <RangeChecks Value="True"/>
+        <OverflowChecks Value="True"/>
+        <StackChecks Value="True"/>
+      </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
+    </CodeGeneration>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </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/gpggraph.lpr b/gpggraph.lpr
new file mode 100644
index 0000000..7c8ce3f
--- /dev/null
+++ b/gpggraph.lpr
@@ -0,0 +1,17 @@
+program gpggraph;
+
+{$R *.res}
+
+uses
+  mystringlistunit;
+
+var
+  sl: tMyStringList;
+
+begin
+  sl:=tMyStringList.create;
+  sl.loadFromPipe('gpg --homedir /var/cache/kernelKeys/.gnupg --list-sigs --no-auto-check-trustdb --fast-list-mode --fixed-list-mode');
+  writeln(sl.count);
+  sl.free;
+end.
+
diff --git a/gpggraph.lps b/gpggraph.lps
new file mode 100644
index 0000000..b154eba
--- /dev/null
+++ b/gpggraph.lps
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectSession>
+    <Version Value="9"/>
+    <BuildModes Active="Default"/>
+    <Units Count="3">
+      <Unit0>
+        <Filename Value="gpggraph.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
+        <CursorPos X="16" Y="14"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="108"/>
+        <CursorPos X="25" Y="113"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="../units/fileunit.pas"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="154"/>
+        <CursorPos X="28" Y="172"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit2>
+    </Units>
+    <JumpHistory Count="11" HistoryIndex="10">
+      <Position1>
+        <Filename Value="gpggraph.lpr"/>
+        <Caret Line="14" Column="19"/>
+      </Position1>
+      <Position2>
+        <Filename Value="gpggraph.lpr"/>
+        <Caret Line="13" Column="6"/>
+      </Position2>
+      <Position3>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="22" Column="25" TopLine="7"/>
+      </Position3>
+      <Position4>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="120" Column="24" TopLine="94"/>
+      </Position4>
+      <Position5>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="30" Column="26" TopLine="8"/>
+      </Position5>
+      <Position6>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="157" Column="18" TopLine="136"/>
+      </Position6>
+      <Position7>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="169" Column="18" TopLine="136"/>
+      </Position7>
+      <Position8>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="123" Column="9" TopLine="94"/>
+      </Position8>
+      <Position9>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="120" Column="26" TopLine="100"/>
+      </Position9>
+      <Position10>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="113" Column="25" TopLine="93"/>
+      </Position10>
+      <Position11>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="23" Column="15" TopLine="3"/>
+      </Position11>
+    </JumpHistory>
+  </ProjectSession>
+</CONFIG>
diff --git a/gpggraph.res b/gpggraph.res
new file mode 100644
index 0000000..e1df0e9
--- /dev/null
+++ b/gpggraph.res