Registry Werte beim starten auslesen klappt nicht

[Helpliner]

Stimm, wenn ich so drüber nachdenke ist false völlig ausreichend.

Zitat von MathiasSimmack:

Delphi-Quellcode:

for i := 1 to 9 do 
        if(ValueExists('Typ ' + inttostr(i))) then 
        begin 
          MyEdit := self.FindComponent('Edit' + inttostr(i)); 
          if(MyEdit <> nil) then 
            (MyEdit as TEdit).Text := ReadString('Typ ' + inttostr(i)); 
        end;

Auf die gleiche Weise kann man natürlich vor dem Registryzugriff die Edits mit den gewünschten Standardwerten füllen.

So etwas ähnliches habe ich zu Anfang ausprobiert, nur das ich es nicht hinbekommen habe ich habe versucht

Delphi-Quellcode:

  reg.WriteString('Typ 1', Edit1.Text);
  reg.WriteString('Typ 2', Edit2.Text);
  etc.

durch

Delphi-Quellcode:

 var i: Integer;
begin
 i := 1;  
  while i <= 9 do begin 
   reg.WriteString('Typ' + IntToStr(i)), Edit(i).Text);
  end;
end;

Wobei das ersetzen der Zahl in Editx.Text nicht geklappt hat.
Aber jetzt habe ich ja eine Lösung dafür auf dem Silberteller bekommen die ich sogar noch verstehe *freu*