mal meine lösung...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
anz:integer;
atext:string;
zeichen:char;
begin
atext:=edit1.Text;
if atext='' then exit;
ValueListEditor1.Strings.Clear;
for i:=1 to length(atext) do
begin
zeichen:=atext[i];
if ValueListEditor1.Values[zeichen]='' then
begin
anz:=1
end
else
begin
anz:=strtoint(ValueListEditor1.Values[zeichen]);
inc(anz);
end;
ValueListEditor1.Values[zeichen]:=inttostr(anz);
end;
end;
als tipp: wenn es nur die buchstaben sein sollen, dann reicht ja auch ein array mit 26 elementen (a..z) schau dir dazu mal die funktionen chr und ord an, damit kannst du einiges vereinfachen...