1:
2:
3:
4:
5:
6:
7:
8:

Ausgabe von Programm Test:
 
Anzahl 50000
Einfache Zuweisung 00:00:00.013
Hintanstellen 00:00:00.010
Voranstellen 00:00:03.950
Reihenfolge umkehren 00:00:00.001
Neue Reihenfolge zuweisen00:00:00.006					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Resultliste:= TSTringlist.create;
for i := 0 to ???
  begin
  ....erzeuge s
  ResultListe.add(s);
  end;
ListeUmkehren(ResultListe);
result := ResultListe.text;
ResultListe.free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:

program test;
{$APPTYPE CONSOLE]
//Freepascal {$H+}{$mode delphi} 

uses
  sysutils,classes;
  
const
  ANZAHL = 50000;
var
  TestListe : TStringlist;
  s,k : ansistring; 
  t0,t1: TDateTime;
  j : integer;

procedure ListeUmkehren(Liste:TStringlist);
var
  i,j: integer;
begin
  j := 0;
  i := Liste.count-1;
  while j<i do
    begin
    Liste.exchange(i,j);
    inc(j);
    dec(i);
    end;
end;
     
function IncString(var s:string):string;
//Einen Zahlenstring s wird um 1 erhöhen
// und als uniquestring zurückgegeben
var
  i : integer;
  pChr :  pchar;
begin
   result := s;  
   
   i := length(result);
   pChr := @result[i];
   repeat
     inc(pChr^);
     IF ord(pChr^) >= (ord('0')+10) then
       begin
       pChr^ := '0';
       dec (pChr);
       end
     else
       break; 
     dec(i);
   until i <= 0;   
   uniquestring(result);   
end;   

begin
  TestListe := TStringlist.create;
  //Erzeugen
  S := '0000000000';
  For j := 0 to ANZAHL-1 do
    begin
    //testliste.add(format('%10d',[j]));
    testliste.add(IncString(s));
    end;
    
  t0 := time;
  s := testliste.text;  
  t1 := time;
  //writeln(s);
  writeln('Anzahl ',ANZAHL);
  writeln('Einfache Zuweisung ',FormatDateTime('hh:mm:ss.zzz',T1-t0));
  k := '';
  t0 := time;
  S := '0000000000';
  For j := 0 to ANZAHL-1 do
    begin
    k := k+s;
    end;
  t1 := time;
  //writeln(k);
  writeln('Hintanstellen ',FormatDateTime('hh:mm:ss.zzz',T1-t0));
  
  k := '';
  t0 := time;
  S := '0000000000';
  For j := 0 to ANZAHL-1 do
    begin
    k := s+k;
    end;
  t1 := time;
  //writeln(k);
  writeln('Voranstellen ',FormatDateTime('hh:mm:ss.zzz',T1-t0));
  //Umkehren
  t0 := time;
  ListeUmkehren(testliste);
  t1 := time;
  writeln('Reihenfolge umkehren ',FormatDateTime('hh:mm:ss.zzz',T1-t0));
  //Ausgeben  
  t0 := time;
  s:= testliste.text;  
  t1 := time;
  writeln(s);
  writeln('Neue Reihenfolge zuweisen',FormatDateTime('hh:mm:ss.zzz',T1-t0));
  testliste.free;
  readln
end.					

1:
2:
3:
4:
5:
6:

var Str : TStr;
begin
  Str := TStr.Create;
  //Klasse nutzen
  Str.Add('Mein String');
  //...					

1:
2:
3:

iLen := SchreibPositionAdd - SchreibPositionInsert;
Move(s[SchreibPositionInsert],s[1],iLen);
SetLength(s,iLen);