wort zwischen 2 zeichen rauskopieren

[Sir Rufo]

Zitat von himitsu:

Zitat von RuSsAk:

so hab da was zusammen gewürfelt

Code:

Memo3.Text := Copy(Memo3.Text, Pos('<h1 itemprop="name">', Memo3.Text) + 1, Pos('</h1>', Memo3.Text) - Pos('<h1 itemprop="name">', Memo3.Text) - 1);

Mit ein paar Zwischenvariablen wird der Code bestimmt übersichtlicher und es erspart doppelten Code.
Außerdem kann man so besser nachprüfen ob die Berechnung stimmt.

Delphi-Quellcode:

Start := Pos('<h1 itemprop="name">', Memo3.Text);
Ende := Pos('</h1>', Memo3.Text);
Memo3.Text := Copy(Memo3.Text, Start + 1, Ende - Start - 1);

z.B. Start + 1 kann doch wohl nicht ganz stimmen, zumindestens nicht, wenn man nach mehr als nur einem Zeichen sucht.
Start + Length des gesuchten Textes würde wohl eher das richtige Ergebnis liefern.

Warum gibt es für Anfänger solche Ratschläge? Sollen die dumm gehalten werden?

Wieso zeigt man denen nicht gleich wie man das - gerade in diesem Beispiel sehr einfach umzusetzen - vernünftigerweise machen soll?