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...