Avatar billede sirius Nybegynder
01. marts 2000 - 20:38 Der er 6 kommentarer og
1 løsning

Tjek for biblioteker og så add til listbox

Jeg skal bruge et eksempel eller et script der tjekker en mappe i registrerings databasen og så for hvert underbiblioteket adder den det til en listbox... Jeg vil også gerne have det til en Ini fil så den tjekker for alle de steder der står
[xx] og så adder den xx til listbox'en !!
Avatar billede pellelil Nybegynder
01. marts 2000 - 23:01 #1
En "smat-løsning" kunne være at eksportere registrerings databasen til en REG (og dermed Tekst) fil. Denne kan du så læse direkte fra Delphi (en linie af gangen).

En anden løsning kunne være at gøre bruge de metoder der findes i TRegistry. En af disse (desværre sider jeg ikke lige med min Delphi) kan tage alle nøgler oprettet "under et bestemt punkt" og "kopiere" disse til en TList (eller TStrings/TStringlist).
Avatar billede psv Nybegynder
02. marts 2000 - 08:36 #2
Svaret på den sidste del af dit spørgsmål er ret simpelt. Indlæsning af alle gruppenavne fra en ini-fil kan gøres med TIniFile, som har en metode der indlæser alle gruppenavne fra en ini-fil.

FListBox : TListBox;

procedure FillListBox;
var
  AIniFile : TIniFile;
begin
  AIniFile := TIniFile.Create('<FileName>');
  try
    AIniFile.ReadSections(FListBox.Items);
  finally
    AIniFile.Free;
  end;
end;

Så skulle din listbox indeholde alle grupper (xx i [xx]) fra ini-filen <FileName>.
Avatar billede sirius Nybegynder
02. marts 2000 - 15:43 #3
hvordan finder man så ud af hvilket biblioteket EXE filen køres fra ?

eks. jeg kører exe filen fra c:\programmer\xx\xx.exe

og så finder den
c:\programmer\xx\
Avatar billede psv Nybegynder
02. marts 2000 - 15:48 #4
ExtractFilePath(ParamStr(0)) giver stien .exe filen er kørt fra...
(Uden den sidste \)
Avatar billede sirius Nybegynder
02. marts 2000 - 18:01 #5
en sidste lile ting og så får du pointsne PSV hvordan får man value'en af et selected item i en listbox
men dropdown og alm. text box skriver man bare
form.navn.text
men det kan jeg ikke få til at virke med en listbox ?!
Avatar billede psv Nybegynder
02. marts 2000 - 18:07 #6
Udlæs aktivt item til en string (AString):

if AListBox.ItemIndex >= 0 then
  AString := AListBox.Items[AListBox.ItemIndex];

If fætteren tester om der er valgt noget (ItemIndex >=0)... er der ikke valgt noget er itemindex = -1.
Avatar billede sirius Nybegynder
03. marts 2000 - 13:36 #7
Jeg takker mange gange for hjælpen !!
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