Wörterbuch Datei

[Tryer]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Caption :='';
  for i := 1 to Pred(Length(Edit1.Text)) do
    if (Edit1.Text[i] > 'Z') and (Edit1.Text[i+1] < 'a') then
      Caption := IntToStr(i+1);
end;

Falls da kein Trennzeichen zwischen steht:
Großbuchstabe folgt direkt auf einen Kleinbuchstaben -> hier fängt neuer Begriff an (unwahrscheinlich weil unsauber, aber nicht ausgeschlossen). Oder stehen da wirklich Zahlen mit in der Datei? Schwierig zu beurteilen ohne einen Ausschnitt der echten Datei zu sehen.