Hallo,
hier ist der Fehler:
Form3.Memo1.Text + #13#10#10#13#10#13 //<---
es muss heissen:
Form3.Memo1.Text + #13#10#13#10#13#10
du kannst die Balken in deiner Textdatei sehen (Ihre Benutzerangaben im Registrierungs-Assistenten.txt).
Aber wieso verwendest du Edits als Variablen?
Delphi-Quellcode:
procedure TForm3.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked = true then
begin
Form3.Edit2.text := 'Der Benutzer möchte am Programm zur Verbesserung der Benutzerfreundlichkeit teilnehmen!';
end else
begin
Form3.Edit3.Text := ' ';
end;
end;
procedure TForm3.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked = true then
begin
Edit3.Text := 'Der Benutzer möchte über Updates/neue Versionen informiert werden!';
end else
begin
Edit3.text := ' ';
end;
end;
procedure TForm3.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked = true then
begin
Edit4.Text := 'Der Benutzer möchte über andere Produkte informiert werden!';
end else
begin
edit4.Text := ' ';
end;
end;
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<