alle .ini datei in einem bestimmten ordner auflisten

[joel93]

[joel93]

Delphi-Quellcode:

uses
  Windows, SysUtils, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, XPMan, IniFiles;

[joel93]

Kann mir jetz noch jemand sagen, wie ich in der listbox z.B. aus hallo.ini
einfach nur hallo mache???

[Klaus01]

Hallo Joel,

aus der Hilfe:

Zitat:

Changes the extension of a file name.

Unit

SysUtils

Category

file name utilities

function ChangeFileExt(const FileName, Extension: string): string;

Description

ChangeFileExt takes the file name passed in FileName and changes the extension of the file name to the extension passed in Extension. Extension specifies the new extension, including the initial dot character.

ChangeFileExt does not rename the actual file, it just creates a new file name string.

Note: This function works with multi-byte character sets (MBCS).

Als Extension kannst Du dann nichts, also '', eingeben.

Grüße
Klaus

[joel93]

1. ???

2. Wie kann ich auf einen click auf ein item die .ini auslesen

Delphi-Quellcode:

procedure TMainForm.ListBox1Click(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\data\'+listbox1.???+'.ini');
  try
    Edit1.Text:=ini.ReadString('Zugangsdaten','Benutzername','');
    Edit2.Text:=ini.ReadString('Zugangsdaten','Kennwort','');
  finally
    ini.free;
  end;
end;

[Balu der Bär]

Delphi-Quellcode:

procedure TMainForm.ListBox1Click(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\data\'+listbox1.Items[Listbox1.ItemIndex]); //Endung .ini sollte schon mit in der Listbox stehen
  try
    Edit1.Text:=ini.ReadString('Zugangsdaten','Benutzername','');
    Edit2.Text:=ini.ReadString('Zugangsdaten','Kennwort','');
  finally
    ini.free;
  end;
end;

[Klaus01]

- die Lösung war nicht so gut -
- deswegen habe ich sie gelöscht -

[joel93]

//Endung .ini sollte schon mit in der Listbox stehen hätte ich's hingekriegt hätte ich das schon gemerkt

[joel93]

Ich hab da noch ein problem:
Ich hab nen prog gebastelt, wenn dort kein Item in der Listbox makiert (beim programmstart oder beim klicken auf 'Neu') ist und ich dan auf einen freien fleck ind der listbox klick kommt nen error ?!?

edit: download nich vergessen!!!

[Klaus01]

Guten Morgen Joel,

aus der Hilfe:

Zitat:

Use ItemIndex to select an item at runtime. Set the value of ItemIndex to the index of the item to be selected. The ItemIndex of the first item in the list box is 0. If no item is selected, the value is -1, which is the default value unless MultiSelect is True.

das kann dann so eingesetzt werden:

Delphi-Quellcode:

procedure TMainForm.ListBox1Click(Sender: TObject); 
var ini: TIniFile; 
begin 
  if Listbox1.ItemIndex > -1 then
    begin
      ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\data\'+listbox1.Items[Listbox1.ItemIndex]); //Endung .ini sollte schon mit in der Listbox stehen 
      try 
        Edit1.Text:=ini.ReadString('Zugangsdaten','Benutzername',''); 
        Edit2.Text:=ini.ReadString('Zugangsdaten','Kennwort',''); 
      finally 
        ini.free; 
      end;
    end; 
end;

Grüße
Klaus