Was stimmt hier nicht?

[marabu]

Hi Lucius,

schnell noch vor dem Mittagessen:

Delphi-Quellcode:

function TDemoForm.CreateStrings(s: string): TStrings;
var
  name, value: string;
  i: integer;
begin
  Result := TStringList.Create;
  Result.NameValueSeparator := ':';
  Result.Text := s;
  for i := 0 to Pred(Result.Count) do
  begin
    name := Result.Names[i];
    value := Result.Values[name];
    Result[i] := Trim(name) + Result.NameValueSeparator + Trim(value);
  end;
end;

Der Fehler war von mir - ich habe zu früh getrimmt - sorry.

marabu