Bereinigen des Records

[ibp]

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