Wozu fragst du überhaupt, wenn du es dann doch besser weißt und die Hinweise einfach ignorierst?
Und die Logik ist wirklich ein Problem, kann das sein?
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28:
| ParserLbl.Caption := '-1'; for I := 0 to Editor.Lines.Count - 1 do begin if ParserLbl.Caption = '-1' then begin if Editor.Lines[I] = 'text' then begin ParserLbl.Caption := '0'; Editor.Perform(WM_VSCROLL, SB_LINEDOWN, 0); end; end; if ParserLbl.Caption = '0' then begin if Editor.Lines[I] = 'caption' then begin ParserLbl.Caption := '1'; Editor.Perform(WM_VSCROLL, SB_LINEDOWN, 0); end; end; if parserlbl.Caption = '1' then begin ausgabememo.Text := editor.Lines[editor.Lines.Count-1]; end; end; |
Du postest nur stupide immer fast den gleichen Quelltext, wunderst dich, dass du mit deiner komischen Herangehensweise nicht weiter kommst und ignorierst alle entsprechenden Hinweise. Gleichzeitig sagst du nicht was du mit dem Quelltext erreichen willst, sondern postest nur den Quelltext, der so aber keinen Sinn macht...
Insofern sehe ich hier in der Diskussion auch keinen Sinn mehr.