Version 1.0 DEV 1.11d

Signed-off-by: Dennis07 <den.goehlert@t-online.de>

Source/uLocalMgr.pas

@@ -159,6 +159,10 @@ procedure TLocalizationFormat.SetComment(Value: ShortString);
 var
   Index: Integer;
 begin
+  if ArrayPos(Value,[FSeparator,FHeader]) <> -1 then
+  begin
+    raise EInvalidFormat.Create('Invalid param format for property: "Comment"');
+  end;
   for Index := 1 to Length(Value) do
   begin
     if Value[Index] in Spaces then
@@ -173,6 +177,10 @@ procedure TLocalizationFormat.SetSeparator(Value: ShortString);
 var
   Index: Integer;
 begin
+  if (ArrayPos(Value,[FComment,FHeader]) <> -1) or (Length(Value) = 0) then
+  begin
+    raise EInvalidFormat.Create('Invalid param format for property: "Separator"');
+  end;
   for Index := 1 to Length(Value) do
   begin
     if Value[Index] in Spaces then
@@ -187,6 +195,10 @@ procedure TLocalizationFormat.SetHeader(Value: ShortString);
 var
   Index: Integer;
 begin
+  if ArrayPos(Value,[FComment,FSeparator]) <> -1 then
+  begin
+    raise EInvalidFormat.Create('Invalid param format for property: "Header"');
+  end;
   for Index := 1 to Length(Value) do
   begin
     if Value[Index] in Spaces then
@@ -264,8 +276,23 @@ begin
 end;
 
 function TLocalization.Check(const Line: Integer): Boolean;
+var
+  Index: Integer;
+  LineStr: String;
+  InComment: Boolean;
+  InSeparator: Boolean;
+  InHeader: Boolean;
+  InIndex: Byte;
 begin
-  //...
+  Result := True;
+  LineStr := Lines.Strings[Index];
+  for Index := 1 to Length(LineStr) do
+  begin
+    if LineStr[Index] in Spaces then
+    begin
+      Continue;
+    end;
+  end;
 end;
 
 procedure TLocalization.Apply;

Source/uSysCtrls.pas

@@ -6,6 +6,10 @@ unit uSysCtrls;
 ///  (c) 2014 Dennis G�hlert a.o.  ///
 //////////////////////////////////////
 
+  {$IFNDEF MSWINDOWS}
+    {$MESSAGE ERROR 'The "uSysCtrls" unit is only available under MS-Windows OS'}
+  {$ENDIF}
+
 interface
 
 uses