Changeset 90 for trunk/UContact.pas

Timestamp:

Feb 2, 2022, 2:55:58 PM (2 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.2.0.
• Modified: Updated Common package.
• Added: Read Me file with app description and development information.
• Added: Test form available in debug mode from Tools menu with list of test cases to better support app testability.

File:

• trunk/UContact.pas (modified) (2 diffs)

trunk/UContact.pas

@@ -1147 +1147 @@
   ParseState: TParseState;
   Line: string;
+  Line2: string;
   Value: string;
   I: Integer;
@@ -1181 +1182 @@
         while True do begin
           Inc(I);
-          if (Length(Lines[I]) > 0) and (Lines[I][1] = ' ') then begin
+          Line2 := Lines[I];
+          if (Length(Lines[I]) > 0) and (Line2[1] = ' ') then begin
             Value := Value + Trim(Lines[I]);
           end else