Textdatei in Liste lesen und per idHTTP senden

[marabu]

Moin Gene,

kennst du die Komponente ValueListEditor?

Delphi-Quellcode:

procedure CopyNamedValues(sFrom, sTo: TStrings);
var
  i: Integer;
begin
  sTo.BeginUpdate;
  try
    sTo.Clear;
    for i := 0 to Pred(sFrom.Count) do
      sTo.Values[sFrom.Names[i]] := sFrom.ValueFromIndex[i];
  finally
    sTo.EndUpdate;
  end;
end;

procedure TDemoForm.FormCreate(Sender: TObject);
var
  s: TStrings;
begin
  s := TStringList.Create;
  s.NameValueSeparator := ':';
  s.LoadFromFile('test.txt');
  CopyNamedValues(s, ValueListEditor.Strings);
  s.Free;
end;

Kannst du deine Delphi-Version in deinem DP-Profil nachtragen?

Grüße vom marabu