Verständnisfrage

[GuenterS]

Naja weil du downto 1 machst ... wenn was drinsteht auch richtig nur, wenn nix drinsteht ist 1 zuviel... also einfach vorher ne if abfrage auf <> '' machen.



und in
procedure TForm1.edStringChange(Sender: TObject);
begin
edLen.Text := IntToStr(Length(edString.Text));
edCount.Text := IntToStr(CountOfChar(edZeichen.Text[1]))
end;
greifst Du auf das 1 Zeichen in edZeichen.Text zu, wenns leer ist, wars auch da eins zuviel... bzw. dann nicht drauf zu greifen. Leerer String ist nunmal leer. Auch da würd ich ne if <> '' davor machen und im else zweig edCount.Text auf '0' setzen.

bzw. was soll eigentlich CountOfChar(edZeichen.Text[1]) bringen? Was wäre gegen Length(edZeichen.text) einzuwenden, dann bräuchtest auch keine Abfrage auf <> '' an der stelle.