Wort aus String extrahieren

[Sweex]

[dcc32 Fehler] Amp.pas(309): E2081 Anweisung für FOR-Schleifenvariablen 'i'
i:=1; und hier
[dcc32 Warnung] Amp.pas(310): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt. Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der Unit 'SysUtils' in Betracht.
while (Outbound[i] in ['0'..'9', 'A'..'Z', 'a'..'z']) and (i <= Length(Outbound)) do Oh, warum meckert er nun? Ja die Ausdrücke gucke ich mir an, versprochen.

Edit: Hab den Fehler, eine schleife vorher war nicht korrekt geschlossen

[Aviator]

In einer For-Schleife, in der du "i" als Zählervariable benutzt, kannst du nicht einfach "i" wieder auf irgend einen Wert setzen. Dafür solltest du dann repeat ... until oder while ... do benutzen.

Zitat von Sweex:

[dcc32 Warnung] Amp.pas(310): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt. Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der Unit 'SysUtils' in Betracht.
while (Outbound[i] in ['0'..'9', 'A'..'Z', 'a'..'z']) and (i <= Length(Outbound)) do

Ab Delphi 2009 sollte man die Funktion CharInSet() für solche Konstrukte verwenden. Deshalb auch die Warnung. Als Beispiel so:

if CharInSet(Outbound[i], ['0'..'9', 'A'..'Z', 'a'..'z']) then ...

[idefix2]

Ich habe kein Delphi XE, aber ungefähr so müsste es mit den XE-Regexen funktionieren (keyword1, keyword2... sind die Schlüsselwörter, auf die ein für dich interessantes Wort folgt) :

Code:

var
   regexpr : TRegEx;
   match   : TMatch;

begin
  regexpr := TRegEx.Create('(Keyword1|Keyword2|Keyword3)\W+(\w+)',[roIgnoreCase]);
  match := regexpr.Match(Outbound);
  if match.Success then Outbound:=Match.Groups[2];  
end;

In Match.Groups{1] ist das gefundene Schlüsselwort, in Match.Groups[2] das Wort dahinter.