Nach unbestimmten String suchen

[himitsu]

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)

[Paulh]

Immer auf die Anfänger

Ja, in s steht das richtige drin, das Memo wird schon vorherbefüllt.

Es war die böse 0 Mit 1 geht es.

Danke