Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#31

Re: Regsistrierungs Assistent

  Alt 2. Jun 2007, 15:05
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! <<
  Mit Zitat antworten Zitat