Wie am besten String aufteilen?

[marabu]

Hi Dash,

dein URL liefert tab delimited text - den kannst du relativ einfach mit einer TStringList verarbeiten. Ein wenig Code für dich:

Delphi-Quellcode:

procedure TDemoForm.DownloadButtonClick(Sender: TObject);
var
  ms: TMemoryStream;
  url: string;
  slLines, slFields: TStringList;
  i: integer;
begin
  url := 'http://www.yashare.de/spider/query.php?s=aaa';
  ms := TMemoryStream.Create;
  HTTP.Get(url, ms);
  slLines := TStringList.Create;
  slFields := TStringList.Create;
  ms.Position := 0;
  slLines.LoadFromStream(ms);
  ms.Free;

  slFields := TStringList.Create;
  slFields.Delimiter := #9;
  if slLines.Count > 0 then
  begin
    slFields.DelimitedText := slLines[0];
    ShowMessage(slFields.Text);
  end;
  slLines.Free;
  slFields.Free;
end;

Grüße vom marabu