Zitat:
PosEx('src="', s, 0);
Eine
0? Strings fangen bei 1 an.
Und hast du mal im Debugger nachgesehn, ob auch wirklich das Richtige in
s drinsteht?
Zitat:
if checkbox1.Checked=true then
=true ... Sowas macht man nicht! ( wo ist der Aufdiepfotenhauensmilie? )
if checkbox1.Checked then
(die Gründe wurden schon oft genug, in unzähligen Threads erklärt)
Zitat:
Delphi-Quellcode:
except
showmessage('Datei konnte nicht geladen werden.'#10#13+'Pfad richtig ?');
end;
Pfad richtig ? ... Woher soll man das wissen, wenn du doch die "eigentliche" Fehlermeldung
zerstört hast?
Eventuell fehlten auch nur die Zugriffsrechte?
Delphi-Quellcode:
except
on E:
Exception do begin
E.
Message := '
Datei konnte nicht geladen werden.' + sLineBreak + '
Pfad richtig ?' + sLineBreak + sLineBreak + E.
Message;
raise;
end;
end;
oder laß das Try-Except einfach weg.
Außerdem würde der nachfolgende Code (bei dir) auch ausgeführt, selbst wenn keine Datei geladen wurde.
Wenn man über Try-Except die Fehlermeldung verändert, dann nur Verständlicheres hinzufügen und maximal noch Unwichtigeswichtiges entfernen oder durch eine gleichwertige Information ersetzen.
Zitat:
s := memo1.Lines.Text;
Ist zwar kein Fehler, aber nimm besser
s := Memo1.Text;
, denn .Lines zerlegt den zusammenhängenden Text im Memo in einzelne Zeilen, um ihn danach über .Lines.Text gleich wieder zusammenzusetzen.
Memo1.Text ließt dagegen direkt aus dem Memo.
Und der Windows-Zeilenumbruch nennt sich #13#10 und nicht #10#13.
CR+LF = #13#10 = #$0D#$0A =
sLineBreak (unter Windows)