ini filer og listbox

Slå TIniFile op i hjælpen og brug ReadSectionValues('List', ListBox1.Items) til at læse værdierne ind i din TListBox.

kan du så ikke lige fortælle mig hvad der er galt her??

procedure TForm1.FlatButton1Click(Sender: TObject);
var
  AppIni: TIniFile;
begin
ShellExecute(Handle,'open',PChar(AppIni.ReadSection('List', FlatListBox1.Items)),pchar(''),pchar(''),SW_SHOWNORMAL);
AppIni.Free;
end;

Fejl: Invalid typecast

Jeg har åbenbart ikke helt forstået dit spørgsmål.

For det første skal du AppIni.ReadString('List',1,'') i stedet for AppIni.ReadSection('List', FlatListBox1.Items) når du vil bruge den på den måde.
Desuden skal du have initialiseret din ini-fil - det er noget med
AppIni:=TINIFile.create
og
AppIni.loadfromfile('<IniFilePathAndName>')
men kig i hjælpen!!

jeg kan ikke fåe det til at virke :( kan du ikke brygge en kode sammen.

Du er godt nok ikke særlig god til at lære selv!!

Delphi's hjælp er et fremragende middel til selvhjælp!

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Inifiles,shellapi;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  IniFile: TInifile;
begin
IniFile:= TInifile.create('c:\my.ini');
try
IniFile.ReadSectionValues('List',ListBox1.Items);
finally
    IniFile.Free;
end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar( ListBox1.Items.Values[ListBox1.Items.names[ListBox1.ItemIndex]]),pchar(''),pchar(''),SW_SHOWNORMAL);
end;

end.

Det virker!!! men kan man ikke fåe den til at vise et andet navn end stien til det program man har skrevet i ini filen???

Man kan som regel alt, når det drejer sig om programmering, men du får mig ikke til at lave mere kode!

Du skal blot have en tstringlist med indholdet af ini-filen og så nøjes med at vise navnet (tstringlist.names) i listboksen. Så kan slå programmet op i din egen 
tstringlist på navnet.

Jasper

ok. kan du så svare mig på hvorfor den tager talet fra inifilen med? eks

0=c:\prog...

Hvorfor tager den nullet med når det er ReadSectionValues så burde det jo kun være det efter = tegnet, ikk??

Hvis man læser i hjælpen, så kan man se at ReadSectionValues tager både navn og værdi!

Ved du om det er muligt kun at vælge value og ikke section?

Du er ikke meget for at bruge Delph's hjælp:

In TIniFile

DeleteKey
EraseSection
ReadSection
ReadSections
ReadSectionValues
ReadString
UpdateFile
WriteString

Derived from TCustomIniFile

Create
ReadBinaryStream
ReadBool
ReadDate
ReadDateTime
ReadFloat
ReadInteger
ReadTime
SectionExists
WriteBinaryStream
WriteBool
WriteDate
WriteDateTime
WriteFloat
WriteInteger
WriteTime
ValueExists


function ReadString(const Section, Ident, Default: String): String; override;

Retrieves a string value from an INI file.

Description

Call ReadString to read a string value from an INI file. Section identifies the section in the file that contains the desired key. Ident is the name of the key from which to retrieve the value. Default is the string value to return if the:

Section does not exist.
    Key does not exist.
    Data value for the key is not assigned.

det har jeg godt nok læst i hjælpen, men den siger at det ikke er en valid string et eller andet når jeg bruger readstring