Fixed some issues in review #192 #187

w7sst · Feb 28, 2023 · d640c2d · d640c2d
1 parent e2a58fe
commit d640c2d
Show file tree

Hide file tree

Showing 7 changed files with 3,805 additions and 3,803 deletions.
diff --git a/ACAG.pas b/ACAG.pas
@@ -49,7 +49,7 @@ implementation
 
 function TACAG.LoadCallHistory(const AUserCallsign : string) : boolean;
 const
-  DelimitChar: char = #09;
+  DelimitChar: char = ',';
 var
   slst, tl: TStringList;
   i: integer;
@@ -69,7 +69,7 @@ function TACAG.LoadCallHistory(const AUserCallsign : string) : boolean;
   try
     CallList.Clear;
 
-    slst.LoadFromFile(ParamStr(1) + 'DIC_ACAG.TXT');
+    slst.LoadFromFile(ParamStr(1) + 'JARL_ACAG.TXT');
 
     for i:= 0 to slst.Count-1 do begin
       if (slst.Strings[i].StartsWith('!!Order!!')) then continue;
@@ -97,6 +97,7 @@ function TACAG.LoadCallHistory(const AUserCallsign : string) : boolean;
   finally
     slst.Free;
     tl.Free;
+    if rec <> nil then rec.Free;
   end;
 end;
 

diff --git a/ALLJA.pas b/ALLJA.pas
@@ -49,7 +49,7 @@ implementation
 
 function TALLJA.LoadCallHistory(const AUserCallsign : string) : boolean;
 const
-  DelimitChar: char = #09;
+  DelimitChar: char = ',';
 var
   slst, tl: TStringList;
   i: integer;
@@ -69,7 +69,7 @@ function TALLJA.LoadCallHistory(const AUserCallsign : string) : boolean;
   try
     CallList.Clear;
 
-    slst.LoadFromFile(ParamStr(1) + 'DIC_ALLJA.TXT');
+    slst.LoadFromFile(ParamStr(1) + 'JARL_ALLJA.TXT');
 
     for i:= 0 to slst.Count-1 do begin
       if (slst.Strings[i].StartsWith('!!Order!!')) then continue;
@@ -97,6 +97,7 @@ function TALLJA.LoadCallHistory(const AUserCallsign : string) : boolean;
   finally
     slst.Free;
     tl.Free;
+    if rec <> nil then rec.Free;
   end;
 end;