Det hele i en ini fil !!

Denne procedure som jeg lige har bixet sammen kan gøre det som jeg forstår du vil have den til:


procedure TForm1.LavLabels(inifil: TFileName);
var
  ini: TIniFile;
  Items: TStringList;
  i: integer;
  lbl: TLabel;
begin
  Items := TStringList.Create;
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '/' + inifil);
  ini.ReadSectionValues('Hej', Items);
  for i := 0 to Pred(Items.Count) do
  begin
    lbl := TLabel.Create(Self);
    lbl.Left := 10;
    lbl.Top := 14*I;
    lbl.Caption := Items[I];
    Form1.InsertControl(lbl);
  end;
end;


Du kalder den med:

LavLabels('din_ini_fil.ini');

og ini-filen skal ligee i samme mappe som programmet.


Du skal huske at tilføje IniFiles til uses

/SpEeDy

Hehe fint man det virker !! dog skal der ikke stå 1=blabla kun blabla !!! hvordan får jeg det der 1= væk ??

Sådan her:

procedure TForm1.LavLabels(inifil: TFileName);
var
  ini: TIniFile;
  Items: TStringList;
  i: integer;
  lbl: TLabel;
begin
  Items := TStringList.Create;
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '/' + inifil);
  ini.ReadSection('Hej', Items);
  for i := 0 to Pred(Items.Count) do
  begin
    lbl := TLabel.Create(Self);
    lbl.Left := 10;
    lbl.Top := 14*I;
    lbl.Caption := ini.ReadString('Hej', Items[I], '');
    Form1.InsertControl(lbl);
  end;
end;


/SpEeDy

jeg siger tak du er bare en rigtig gutter mand !!

Speedy >> Når du får skrivekrampe kan du overveje at lave dine for-løkker sådan :

for i := 0 to Items.Count-1 do

hehe, det er bare en vane jeg har fået altid at skrive Pred, jeg ved ikke hvorfor ;)

/SpEeDy