Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: .url öffnen geht nicht

    Delphi
    by DeddyH, 1. Mär 2013
  DRY
  procedure TForm1.ListBox1DblClick(Sender: TObject);
  begin
  if ListBox1.ItemIndex > -1 then
  begin
  filename := (ExtractFilePath(ParamStr(0)) + ChangeFileExt('Html\' + Listbox1.Items , '.url'));
  if not FileExists(filename) then
  raise Exception.CreateFmt('Datei %s existiert nicht', );
  OpenURL(filename);
  end;
• Forum: Object-Pascal / Delphi-Language

  AW: .url öffnen geht nicht

    Delphi
    by DeddyH, 1. Mär 2013
  %d steht für ganze Zahl, für Strings brauchst Du %s. Allerdings steige ich persönlich bei Deinem Code nicht durch, da gibt es eine Listbox, ein Memo und ein Edit. Was ist denn was? Außerdem erzeugst Du die TIniFile immer wieder neu, gibst sie aber nicht frei -> Speicherleck.