Hallo, Mario!
Du könntest folgendes versuchen:
Delphi-Quellcode:
function SchlagworteDurchTextErsetzen(Meldung: string): string;
var
counter: integer;
ErklaerenderText: string;
begin
for counter := 0 to AnzahlSchlagwoerter do begin
while Pos(Schlagwort[counter],Meldung) <> 0 do begin
ErklaerenderText := // Funktion, um erklärenden Text aus der Datenbank auszulesen...
Meldung := copy(Meldung,1,Pos(Schlagwort[counter],Meldung)-1) +
ErklaerenderText +
copy(Meldung,Pos(Schlagwort[counter],Meldung)+Length(Schlagwort[counter]));
end;
end;
end;
Aufrufen könntest Du die Funktion über
Meldung := SchlagwortDurchTextErsetzen(Meldung);
Für diese Methode bräuchtest Du allerdings ein Array, in dem Deine Schlagworte gesammelt sind und eine Funktion, um die entsprechenden, weiterführenden Texte aus Deiner Datenbank auszulesen...
Matthias
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]