Inkompatible Typen: Char und 'String'

[Crazymodder]

Hallo alle zusammen
Ich will einfach nur bei einer aktiven Checkbox die PasswordChar eigenschaft eines Edits verändern.
Das ist mein Quelltext:

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
    Edit2.PasswordChar := '#0'
  else
    Edit2.PasswordChar := '*';
end;

Nun erhalte ich diese Fehlermeldung:
Inkompatible Typen: Char und 'String'

Was müsste Ich verändern?
ein Char('*') bringt die Fehlermeldung:
Ungültige Typenumwandlung

[craash]

/edit: bei mir funktioniert form1.MaskEdit1.PasswordChar := char('*'); wunderbar

/edit2: form1.MaskEdit1.PasswordChar := #0; ohne 's
/edit3: zu spät

[SirThornberry]

er versucht dem Passwordchar mehr als ein Zeichen zu zuweisen

Zitat:

Edit2.PasswordChar := '#0'

nämlich # und 0
ich denke hier ist #0 und nicht '#0' gemeint.

[nuclearping]

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
    Edit2.PasswordChar := #0
  else
    Edit2.PasswordChar := '*';
end;

Tante Edith meint: Mist, Sir Thornberry war schneller.

[taaktaak]

Delphi-Quellcode:

Edit2.PasswordChar := #0
Edit2.PasswordChar := #42

[Crazymodder]

Ok vielen Dank ging ja echt fix. Eig. hätte man selbst drauf kommen können
Vielen Dank an euch alle.

[Helmi]

Vielleicht sollte man noch auf das "= true" hinweisen - CheckBox1.Checked ist schon ein boolscher Ausdruck
Da braucht man nicht noch einen boolschen Ausdruck auf einen boolschen Zustand prüfen

Delphi-Quellcode:

begin 
  if CheckBox1.Checked = true then 
    Edit2.PasswordChar := #0 
  else 
    Edit2.PasswordChar := '*'; 
end;

besser:

Delphi-Quellcode:

begin 
  if CheckBox1.Checked then 
    Edit2.PasswordChar := #0 
  else 
    Edit2.PasswordChar := '*'; 
end;

[Melli012345]

Hallo,
soll eine Funktion erstellen, die ein vorher in einem edit-Fenster eingegebenes Zeichen löscht.
bekomme aber die Fehlermeldung
(86): Inkompatible Typen: Char und String

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
 var i, ende: integer;
 var z, l, a: string;


  begin

   ende := length(a);
   a := edit1.text[i];
    l := '';
    z := edit2.text;
   while i <= ende do
    begin

    if a[i] = z then  a[i] :=  l
  end;
   begin
   label1.caption := a;
   end; end;

Was stimmt nicht?
Dankeschön

[mkinzler]

Apfel != Birnen.
Entweder z und l als Char deklarieren oder durch z[1] und l[1] ersetzen.

[Melli012345]

danke schonmal..
habs aber noch nicht ganz (kenne mich in Delphi kaum aus...)

also mein Programm sieht nun so aus

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
 var i, ende: integer;
 var  a, u: string;
 var z, l: char  ;


  begin

   ende := length(a);
    i := 0;
    l := '';


   while i <= ende do
    begin
       a := edit1.text[i];
    z := edit3.text[i];
    u := a;
    if a[i] = z then  u[i] :=  l
  end;

   label1.caption := u;
    end;



end.

aber es stimmt noch was nicht...hängt mit dem l:= '' zusammen...
kann nur grad die Fehlermeldung nicht nennen, da mein Delphi grad gar nichts laden will...