Zeile mit bestimmten Wort editieren

[Gast]

Hallo,

habe hier eine Textdatei, in der mitten drin steht:

color 123974

Jetzt würde ich gerne ein Programm schreiben womit ich die 123974 auslesen kann und im Programm sehen kann und diese Zahl über ein Editfeld ändern kann .. wäre cool wenn mir jmd dazu ein Beispiel coden könnte.

Danke im Voraus !

[Khabarakh]

Zitat:

Zitat von Tigerhead

wäre cool wenn mir jmd dazu ein Beispiel coden könnte.

Code:

color (\d+)

Regular Expression :wink:

http://regexpstudio.com/TRegExpr/TRegExpr.html

[Gast]

Ähm .. ich würde gerne selber ein Programm dafür schreiben und mit deinem Beitrag kann ich nichts anfangen.

[Cicaro]

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'))='color' then
      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).