Einzelnen Beitrag anzeigen

Cicaro

Registriert seit: 9. Feb 2005
285 Beiträge
 
Delphi 7 Personal
 
#4

Re: Zeile mit bestimmten Wort editieren

  Alt 13. Jan 2006, 13:05
Gibt color an, dass ein Farbwert folgt ?
Dann such einfach, wenn du den Text in ein Memo geladen hast, nach dem Text 'color' in dem Feld Text der Memo-Komponente.
Delphi-Quellcode:
var StringZahl:String;

if Length(Memo1.Text)-Length('color')>=0 then
  for i:=1 to Length(Memo1.Text)-Length('color')+1 do
    if Copy(Memo1.Text,i,Length('color'))='colorthen
      StringZahl:=Copy(Memo1.Text,i+Length('color')+1,6);// Vorsicht, wenn color am Ende der Datei steht !
So würde ich das machen (ohne es getestet zu haben).
  Mit Zitat antworten Zitat