Zitat:
kann aber nach durchlaufen des Programms keine Veränderungen an der *.html-datei einsehen.
Genial, der Code macht meistens nicht das, was er soll, wenn eine
Exception ausgelöst wird, was uns vielleicht nicht verschwiegen werden sollte.
Probier also mal das:
Delphi-Quellcode:
for i:=0
to dateiliste.Count-1
do
begin
inhalt.LoadFromFile(dateiliste[i]);
if Pos(ComboBox1.Text, inhalt.Text) > 0
then //statt inhalt[0]
inhalt.Text := copy(inhalt.text,0,Pos('
',inhalt.text)-1)+copy(inhalt.text,Pos('
',inhalt.text)+21,Length(inhalt.text));
// hier verstehe ich gar nichts, "+21" ? Das sieht so aus, als ob du alles außer den begin-end Teil kopierst
AssignFile(f, dateiliste[i]);
//das und folgendes sollte wohl auch in den if-Zweig
Rewrite(f);
Writeln(f, '
<html>');
Writeln(f, '
<head>');
Writeln(f, '
<title>test</title> ');
Writeln(f, '
</head>');
Writeln(f, '
<body>');
Writeln(f, '
');
Writeln(f, '
'+inhalt.Text+'
');
Writeln(f, '
');
Writeln(f, '
</body>');
Writeln(f, '
</html>');
closeFile(f);
ShowMessage('
in' +dateiliste[i]+ '
erfolgreich überarbeitet.') ;
//statt +Combobox1.Text+
end;
//wichtig, folgendes gehört nicht mehr zur Schleife
dateiliste.free;
inhalt.free;
end;
[edit] Ich schreibe zu langsam
.