Also wenn ich das richtig sehe, dann wird der Text im Char-Array nicht immer von einem #0 abgeschlossen, was aber besser wäre und oftmal auh nötig ist -.-''
Delphi-Quellcode:
var
i: Integer;
s: String;
begin
// zeichenweise
s := Edit.Text;
for i := Low(Versuch) to High(Versuch) do
if i < High(Versuch) then
Versuch[i] := s[i]
else begin
Versuch[i] := #0;
break;
end;
// break kann zwar auch weggelassen werden, aber warum nicht abbrechen,
// wenn nach dem ersten #0 eh schluß ist ^^
// blockweise
s := Edit.Text;
i := Min(Length(s), Length(Versuch) - 1),
Move(s[1], Versuch[Low(Versuch)], i);
FillChar(Versuch[Low(Versuch) + i], Length(Versuch) - i, #0);
end;
Dat mit den Fehlern hoffe ich och ma
