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