was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

26 Visitors Online


 
...einen String sehr schnell gemäß ausgewählten Trennzeichen teilen (2)?
Autor: Juhani Suhonen
[ Tip ausdrucken ]  

Tip Bewertung (33):  
     


// after optimizations with delphi it comes a
// time for some assembler; also the memory
// management (slow result allocation) has been
// taken care of...

// note : You MUST have the following global
// variables :

// var
//    Splitresult : Array[0..1023] of Char;
//    P_SplitResArray : Pointer;

// then on form1.create assign Pointer :
//    P_SplitResArray := @SplitResult;

// variable Splitresult will contain
// the result after procedure has been completed


procedure split5(const input: string; schar: Char; s: Byte); register;
asm
          
PUSH ECX
          PUSH EAX           //registers :
          
PUSH EDX           //EAX = input
          
PUSH EDI           //DH = s
          
TEST EAX, EAX         //if input = '' then
          
JZ @NoWords   //                  goto @NoInput
@WeHaveIt:MOV DH, CL         //DL = schar
          
MOV EDI, EAX       //EDI := Addr(input);
          
MOV ECX, [EDI-4]   //ECX := length(input);
@GoGo:    MOV AL, DL         //AL := Schar;
          
CMP DH, 2      //IF DH = 2 then
          
JE @StartCo    //              goto @StartCo
          
MOV AH, 2      //AH (upper 8 bits of AX) will be our separator counter initial value is 2, max 256
@Lop:     INC AH        //AH := AH + 1
          
REPNE SCASB    //while (EDI^<>AL) and (ECX>0) begin INC EDI; DEC ECX; end;
          
CMP AH, DH     //if AH < DH then
          
JB @Lop        //               goto @Lop
          
TEST ECX, ECX     //IF ECX > 0 then
          
JG @StartCo    //               goto @StartCp
@NoWords: MOV EDI,[P_SplitResArray]  //result :=
          
MOV BYTE PTR [EDI], $0     //          ''
          
JMP @TotalEnd
@StartCo: PUSH ESI
          MOV ESI, EDI
          MOV EDI, [P_SplitResArray]
@CopyLoop:MOV AH, BYTE PTR[ESI+0]    //32 bit aligned loop.. hopefully :)
          
CMP AH, DL                 //1. test, 8 bits
          
JE @Endword
          MOV BYTE PTR [EDI+0], AH
          INC EDI
          MOV AH, BYTE PTR[ESI+1]
          CMP AH, DL                 //2. test, 8 bits -> 16 bits..
          
JE @Endword
          MOV BYTE PTR [EDI+0], AH
          INC EDI
          MOV AH, BYTE PTR[ESI+2]
          CMP AH, DL                 //3. test, 8 bits -> 24 bits..
          
JE @Endword
          MOV BYTE PTR [EDI+0], AH
          INC EDI
          MOV AH, BYTE PTR[ESI+3]
          CMP AH, DL                 //4. test, 8 bits -> 32 bits..
          
JE @Endword
          MOV BYTE PTR [EDI+0], AH
          INC EDI
          ADD ESI, 4
          SUB ECX, 4
          CMP ECX, 0
          JG @Copyloop
@EndWord: MOV BYTE PTR [EDI], $0 //lisää nolla
          
POP ESI
@TotalEnd:POP EDI
          POP EDX
          POP EAX
          POP ECX
@Final:   RET


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners