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