Text aus Textdatei in TEDIT auslesen und wieder speichern

[Mirco]

Hallo Marabu,
Danke.

ich bin noch nicht so lange am "Programmieren", habe mir angesehen und teilweise ausprobiert was
Pred - AnsiStartsText - AnsiExtractQuotedStr so alles macht.
Vom Verstand her kein Problem, nur bei der Umsetztung gibts noch große Schwierigkeiten.

Ich dachte mir das ich beim Speichern folgendes machen muss.
Jetzt bitte nicht lachen.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
const
  S_DEF = 'define(';
var
  i, j: Integer;
  line, sName, sText: string;
  pc: PChar;
  c: TComponent;
begin
  with Memo1 do
    for i := 0 to Pred(Lines.Count) do
    begin
      line := Lines[i];
      if AnsiStartsText(S_DEF, line) then
      begin
        pc := PChar(line);
        Inc(pc, Length(S_DEF));
        sName := AnsiExtractQuotedStr(pc, '''');
        c := self.FindComponent(sName);
        if Assigned(c) then
        begin
          Inc(pc, 2);
          memo1.Lines.Strings[i] := StringReplace(memo1.Lines.Strings[j], sText, TEdit(c).Text, [rfIgnoreCase]);
        end;
      end;
    end;
  memo1.Lines.savetoFile(ExtractFilePath(Application.ExeName) + 'daten.txt');
end;

Haut natürlich nicht hin, muss ich auch aOldData wie in meinem Beispiel (s.oben) speichern?

Viele Grüsse
Mirco