1:
2:
3:
4:
5:

type TDataPack=record
  Name: String;
end;

List: array of TDataPack;					

1:
2:
3:

type TDataPack=record
  Name: String[255];
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
var a: integer;
begin
  HashTable:=THashTable.Create(1000001);
  for A:= 0 to HashTable.TableSize-1 do
    HashTable.Insert(A,'1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');
  for A:= 0 to HashTable.TableSize-1 do
    HashTable.delete(A);

  //die Tabelle ist also nach außen hin leer, die Strings bleiben aber gespeichert (damit ich lange Strings durch kurze ersetzen kann ;)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

 
var WebData, SearchedWord: String;
    A: integer;
begin
{+}WebData:=http.Get('URL');
 for A:= 0 to 99 do
   begin
{+}     WebData:=Copy(WebData, Pos('ba',WebData) , MaxInt);
{+}     WebData:=Copy(WebData, Pos('q=',WebData)+2 , MaxInt);
{+}     SearchedWord:=AnsiLowerCase( UTF8ToANSi(httpdecode  ( Copy(WebData, 1, Pos('\',WebData)-1 )) ) );
     SearchedWord:=randomChar+randomChar+randomChar+randomChar+randomChar+randomChar;
     HashTable.Insert(GlobalWordCount,SearchedWord);
     GlobalWordCount:=GlobalWordCount+1;
     SearchedWord:='';
     WebData:='';
   end;
end;					

1:

HashTable.Insert(A,'1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');					

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:

type TDataPack=record
  Name: String;
  Filled: boolean;
  OrderedNext: integer;
end;

var
  Form1: TForm1;
  S: array of TDataPack;
  http: TidHTTP;  
  BackUpWebData:String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var a: integer;
begin
            
  randomize;
  http:=TidHTTP.Create;

  SetLength(S,499999);
  for A:= 0 to Length(S)-1 do
    S[A].Name:='Ford und Arthur beschlossen, sich einfach zurück zu lehnen und entsetzt zu sein.';

end;


function randomChar: Char;
var x: integer;
begin
 x:=ord('z')-ord('a');
 Result:=chr(random(x)+ord('a'));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var WebData, SearchedWord: String;
    A, WordIndex: integer;

begin

  if (BackupWebData='') then
    begin
      WebData:=http.Get('http://www.sieglin.de/arne/primzahlen.html');
      BackupWebData:=WebData;
    end;
 for A:= 0 to 99 do
    begin
      WebData:=BackupWebData;

{+}    WebData:=Copy(WebData, Pos(' ',WebData) , MaxInt);
      SearchedWord:=randomChar+randomChar+randomChar+randomChar+randomChar+randomChar;

      WordIndex:=random(Length(S));
      S[WordIndex].Name:=SearchedWord;
      S[WordIndex].Filled:=True;

      WebData:='';

    end;
end;					

1:
2:
3:
4:
5:

type TDataPack=record
  Name: String[255];
  Filled: boolean;
  OrderedNext: integer;
end;