diff options
| author | canni2007 <canni2007@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-03 13:53:10 +0000 |
|---|---|---|
| committer | canni2007 <canni2007@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-03 13:53:10 +0000 |
| commit | 987ead98aca9e8b87343741980a30aeeb7f765f7 (patch) | |
| tree | a764f7f4fd64be646bde19da4a1a6778be1d5327 /Modis/SDK/StrUtils.pas | |
| parent | 493f1af534e9daa9b279e702220e7f0966ee6ad6 (diff) | |
| download | usdx-987ead98aca9e8b87343741980a30aeeb7f765f7.tar.gz usdx-987ead98aca9e8b87343741980a30aeeb7f765f7.tar.xz usdx-987ead98aca9e8b87343741980a30aeeb7f765f7.zip | |
Added missing files :( sry
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1@569 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Modis/SDK/StrUtils.pas')
| -rw-r--r-- | Modis/SDK/StrUtils.pas | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/Modis/SDK/StrUtils.pas b/Modis/SDK/StrUtils.pas new file mode 100644 index 00000000..276d95a2 --- /dev/null +++ b/Modis/SDK/StrUtils.pas @@ -0,0 +1,70 @@ +unit StrUtils;
+
+interface
+uses ModiSDK;
+
+//function StrToAChar(Str: String): AChar;
+function CreateStr(Str: PChar): PChar;
+procedure FreeStr(Str: PChar);
+
+implementation
+
+{function StrToAChar(Str: String): AChar;
+var
+ L, I: Integer;
+begin
+ L := Length(Str);
+ For I := 0 to L-1 do
+ AChar[I] := Str[I+1];
+
+ For I := L to 254 do
+ AChar[I] := #0;
+end; }
+
+function StrCopy(Dest, Source: PChar): PChar; assembler;
+asm
+ PUSH EDI
+ PUSH ESI
+ MOV ESI,EAX
+ MOV EDI,EDX
+ MOV ECX,0FFFFFFFFH
+ XOR AL,AL
+ REPNE SCASB
+ NOT ECX
+ MOV EDI,ESI
+ MOV ESI,EDX
+ MOV EDX,ECX
+ MOV EAX,EDI
+ SHR ECX,2
+ REP MOVSD
+ MOV ECX,EDX
+ AND ECX,3
+ REP MOVSB
+ POP ESI
+ POP EDI
+end;
+
+function StrLen(Str: PChar): Cardinal; assembler;
+asm
+ MOV EDX,EDI
+ MOV EDI,EAX
+ MOV ECX,0FFFFFFFFH
+ XOR AL,AL
+ REPNE SCASB
+ MOV EAX,0FFFFFFFEH
+ SUB EAX,ECX
+ MOV EDI,EDX
+end;
+
+function CreateStr(Str: PChar): PChar;
+begin
+ GetMem(Result, StrLen(Str) + 1);
+ StrCopy(Result, Str);
+end;
+
+procedure FreeStr(Str: PChar);
+begin
+ FreeMem(Str);
+end;
+
+end.
\ No newline at end of file |