Changeset 26 for Common/UCommon.pas

Timestamp:

May 25, 2010, 1:51:46 PM (14 years ago)

Author:

george

Message:

• Přidáno: Knihovna VectorObject pro vykreslování vektorových objektů.
• Přidáno: Knihovna PersistentForm pro uchování stavu oken v registrech.
• Přidáno: LastOpenedList pro uchování naposledy otevřených souborů.
• Upraveno: Aktualizace různých knihoven.

File:

• Common/UCommon.pas (modified) (2 diffs)

Common/UCommon.pas

@@ -17 +17 @@
 function CompareByteArray(Data1, Data2: TArrayOfByte): Boolean;
 function GetUserName: string;
+function SplitString(var Text: string; Count: Word): string;
 
 implementation
@@ -126 +127 @@
 end;
 
+function SplitString(var Text: string; Count: Word): string;
+begin
+  Result := Copy(Text, 1, Count);
+  Delete(Text, 1, Count);
+end;
+
 end.