[Eldorado93]

Hi,
Ich hab hier irgendwo einen Fehler im Code, finde ihn aber iwie nicht.
Link[n] wird einfach nicht mit einem String gefüllt.
Die Gesuchten wörter kommen eindeutig immer vor.

var RString:String;
var link:array [1..10] of String;
var i,k,m,n:integer;
begin
  n:=0;                                                 
  for i:=1 to length(RString) do
   begin
    if (RString[i]='d') and (RString[i+1]='l') and (RString[i+2]='i') and (RString[i+3]='n') and (RString[i+4]='k') and (RString[i+5]='s')  then begin
     inc(n);
     m:=1;
     link[n]:='';
     while (RString[i+m] <> 't') and (RString[i+m+1] <> 'i') and (RString[i+m+2] <> 't') and (RString[i+m+3] <> 'l') and (RString[i+m+4] <> 'e') and (RString[i+m+5] <> '=') do inc(m);
     for k:=i to m do link[n]:=link[n]+RString[i+k];
     ShowMessage(link[n]);
    end;
   end;

Viele Grüße
Eldorado