Avatar billede kallesen01 Nybegynder
16. december 2003 - 19:37 Der er 15 kommentarer og
1 løsning

Ini til en Listbox

Ja nu er jeg lidt på den jeg sidder og koder på en del af mit program, og ja nu kommer jeg til et sted hvor jeg skal have brug for INI. jeg skal hente ting fra en INI fil ind i en listbox men jeg kan ikke lige finde den skide kode...

Nogen der lige hurtigt vil hjælpe ?

/Kallesen
Avatar billede Slettet bruger
16. december 2003 - 19:40 #1
Hvad er det du skal hente??? Hvis det er sektionernes navne kan det gøres sådan:

Ini.ReadSections(ListBox1.Items);
Avatar billede Slettet bruger
16. december 2003 - 19:44 #2
Ini.ReadSection('section', ListBox1.Items);

Den henter navnene i en sektion.
Avatar billede Slettet bruger
16. december 2003 - 19:47 #3
Eller

var
...
I: Integer;
S: TStringList;
begin
...
S := TStringList.Create;
Ini.ReadSection('section', S);
for I := 0 to S.Count-1 do
  ListBox1.Items.Add(Ini.ReadString('section', S.Strings[I], ''));

Henter alle værdierne i en sektion ( ikke testet )
Avatar billede kallesen01 Nybegynder
16. december 2003 - 19:47 #4
jeg har en form (form3) og så en listbox og 2 knapper! den ene henter tekst fra en combobox i form1 og ligger den op i listboxen kanp nr 2 sletter det markerede. men nå jeg vil åbne formen så skulle alle de gemte filer komme igen og når den lukkes skal de gemmes...

/Kallesen
Avatar billede Slettet bruger
16. december 2003 - 19:53 #5
Kan du så ikke bare bruge ListBox1.Items.LoadFromFile(<filnavn>); i formCreate og ListBox1.Items.SaveToFile(<Filnavn>); i formDestroy eller formClose??
Avatar billede kallesen01 Nybegynder
16. december 2003 - 19:55 #6
hmm, jeg ka lige prøve igen.

/Kallesen
Avatar billede kallesen01 Nybegynder
16. december 2003 - 20:13 #7
Du vil vel ikke komme med et helt eksempel ?

/Kallesen
Avatar billede Slettet bruger
16. december 2003 - 20:17 #8
procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileExists('fil.ext') then
    ListBox1.Items.LoadFromFile('fil.ext');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ListBox1.Items.SaveToFile('fil.ext');
end;
Avatar billede kallesen01 Nybegynder
16. december 2003 - 20:25 #9
Takker :D det var jeg glad for at jeg fik at vide :D

Kan du ikke lige dumpe et svar ?
/Kallesen
Avatar billede Slettet bruger
16. december 2003 - 20:26 #10
Ja, det kan jeg da :)
Avatar billede kallesen01 Nybegynder
16. december 2003 - 20:29 #11
Kan du lige hurtigt hjælpe med dette problem ?

form1.ComboBox1.Text := form3.FlatListBox1.Items.GetText;

og derefter skal den så uden noget kunne klikke på en knap!

/Kallesen
Avatar billede Slettet bruger
16. december 2003 - 20:36 #12
Du kan trykke på en knap sådan:

Button1Click(nil);
Avatar billede kallesen01 Nybegynder
16. december 2003 - 20:46 #13
if form1.ComboBox1.Text = form3.FlatListBox1.Items.GetText then
TBItem5Click(nil);

den vil ikke lige det jeg vil...

/Kallesen
Avatar billede kallesen01 Nybegynder
16. december 2003 - 20:49 #14
jeg har lagt den ind i denne:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

end;

end.
Avatar billede Slettet bruger
16. december 2003 - 20:50 #15
Er du sikker på der står det samme i dem??

Ellers prøv at skrive Text istedet for GetText.
Avatar billede kallesen01 Nybegynder
16. december 2003 - 20:53 #16
jeg fandt ud af det... men takker alligevel Hejhej :D

/Kallesen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester