Forum: Programmieren allgemein
by himitsu,
2. Aug 2014
Es hat doch schon jemand eine Lösung verraten :stupid:
Er hat es doch selber hinbekommen und nun fehlt nur noch der kleine Rechenfehler. :D
Forum: Programmieren allgemein
by himitsu,
2. Aug 2014
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. :zwinker:
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,...
Forum: Programmieren allgemein
by himitsu,
2. Aug 2014
TMemo.SelText :mrgreen: (statt des Copy), aber sonst bleibt das Vorgehen dennoch gleich.