Ihr sollte euch doch deßwegen nicht streiten, denn schließlich haben beide Codes etwas gutes an sich.
Der Code von Muetze1 zeigt die "optimalere" Variante.
Und SubData's Cödchen zeigt, wie es gemacht wird ... StringOfChar macht das intern ja ähnlich, (OK, dort ist der Speicherzugriff optimiert)
aber so kann Wargrave wenigstens auch noch etwas lernen
Delphi-Quellcode:
edit2.text := '';
for i := 0 to length(edit1.text) - 1 do // 1
edit2.text := edit2.text + '*'; // 2
// 2: brauche ein Zeichen
// 1: so oft, wie Zeichen im Edit1 vorhanden sind
@Wargrave: StringOfChar macht das in etwa so:
Delphi-Quellcode:
SetLength(Edit2.Text, Length(Edit1.Text));
For i := 0 to Length(Edit1.Text) - 1 do
Edit2.Text[i] := '*';
//PS: dieser Code zeigt nur, wie es geht, aber mit dem Propewrty .Text Funktioniert es nicht,
//dafür bäuchte man schon einen richtigen String:
Var S: String;
SetLength(S, Length);
For i := 0 to Length - 1 do S[i] := '*';