Re: TWebbrowser Werte in Lable.Caption darstellen
1. Feb 2010, 12:01
Hallo,
Zeichenfolgen ersetzen geht z. B. mit:memo.text := AnsiReplaceText(Memo.Text,'<',#13 + '<')
Damit hast Du aus dem < einen Zeilenvorschub plus < gemacht.
Zeilen Löschen könnte in etwa so gehen:
for i := Memo.Lines.Count - 1 DownTo 0 do if Copy(memo.lines[i],1,1) = '<' then memo.lines.Delete(i);
Wenn Du statt des Memos eine TStringList (oder Nachfahren) benutzt, dann kannst Du die Zeile mit dem Text ErrorCode überPosition := Stringliste.IndexOf('ErrorCode')
erhalten und den ErrorCode selbst dann mitErrorCode := Stringliste.IndexOf('ErrorCode') + 1
Alles ungetestet nur hingedaddelt.
|