Forum: Object-Pascal / Delphi-Language
Delphi
by mjenke,
26. Mai 2003
Oops, mir ist gerade noch ein Fehler aufgefallen...
Sollte eigentlich heissen:
Meldung := copy(Meldung,1,Pos(Schlagwort,Meldung)-1) +
ErklaerenderText +
copy(Meldung,Pos(Schlagwort,Meldung)+Length(Schlagwort),Length(Meldung));
:oops:
Matthias
Forum: Object-Pascal / Delphi-Language
Delphi
by mjenke,
26. Mai 2003
Hallo, Mario!
Du könntest folgendes versuchen:
function SchlagworteDurchTextErsetzen(Meldung: string): string;
var
counter: integer;
ErklaerenderText: string;
begin
for counter := 0 to AnzahlSchlagwoerter do begin
while Pos(Schlagwort,Meldung) <> 0 do begin