Ryk felter i en CheckListBox

Har fået løst mit Drag & Drop problem, nu mangler jeg bare at få difineret et Item
på en listbox.
Dette er den måde den skal læse det på
Se på Item 1, står der
IT1, åben program 1
Står der IT2, Åben program 2...

Se på Item 2, står der
IT1, åben program 1
Står der IT2, Åben program 2...

Håber dette er forståeligt :-)

lav en procedure der med 4 if sætninger tester hvad der står:

procedure StartProgram(hvad : string);
begin
if hvad='IT1' then
  start1
else
if hvad='IT2' then
  start2
osv.
end;

procceduren kalder du så en gang for hver af dine checklistbokse

StartProgram(Item1);
StartProgram(Item2);
osv.

Mente en listbox og ikke checklist, skrev vist forkert i den første rubrik. :-)

er heller ikke helt sikker på hvad du mener, kan jeg logge dig til at skrive hele koden for IT1 og IT2 på Item1 og 2?

Mvh
Scifo

procedure StartProgram(Hvad : string);

procedure RunProg(no : byte);
begin
    case no of
      1 : showmessage('kode til at starte program 1');
    2 : showmessage('kode til at starte program 2');
    3 : showmessage('kode til at starte program 3');
    4 : showmessage('kode til at starte program 4');
  end;
end;

begin
    if Hvad='IT1' then
      RunProg(1)
  else if Hvad='IT2' then
        RunProg(2)
  else if Hvad='IT3' then
        RunProg(3)
  else if Hvad='IT4' then
        RunProg(4)
end;

----------------

var
    i : integer;
begin
    for i:=0 to ListBox.Count-1 do
      StartProgram(ListBox.Items[i]);
end;

-----

Hvis der altid er et tal til slut efter ITx (1-4) så kan det gøres kortere:

procedure StartProgram(Hvad : string);
begin
    case Hvad[3] of
      '1' : showmessage('kode til at starte program 1');
    '2' : showmessage('kode til at starte program 2');
    '3' : showmessage('kode til at starte program 3');
    '4' : showmessage('kode til at starte program 4');
  end;
end;

--------------

var
    i : integer;
begin
    for i:=0 to ListBox.Count-1 do
      StartProgram(ListBox.Items[i]);
end;

Undskyld jeg har været så lang tid om at svare tilbage, men tror at vi har misfortået hinanden (eller jeg har forklaret mit problem forkert.
Jeg skal have defineret teksten på et Item.

Altså hvis der i Listboxen står Program1 i item1 og Program2 i item2, disse kan jeg
rokere på, så de bytter plads, men programmet kører, så Program2 står på Item1's plads og program1 står på Item2's plads, derfor skal koden læse teksten og starte med
at indlæse det program der står som Item1, og dernæst det der står som Item2.

Håber dette er mere klart :-)

Vil det sige at teksten i item1 indeholder navnet på den exe fil der skal køres?

Vil hellere sige at item1 indeholder et navn der skal starte en bestemt fil:
Ex. igen *gg*

Står der "Billed program" skal den starte c:\...\...\MSPaint.exe
Står der "Skrive program" skal den starte c:\...\...\word.exe

Det skal åbnes i valgt rækkefølge, som jeg skal kunne bytte rundt på
det er derfor at den skal "læse" teksten :-)

Jamen så er det jo faktisk det samme:

procedure StartProgram(Hvad : string);
begin
if Hvad='Billede program' then
  showmessage('kode til at starte billede program');
if Hvad='Skrive program' then
  showmessage('kode til at starte skrive program');
osv.

end;

Så er vi der næsten, skal have have defineret dit "Hvad" i den procedure.
Det er den kode der skal stå i stedet for "Hvad" jeg skal bruge ;-)

Her har jeg smidt en ListBox og en Button på en form og indtastet "Billede program" og "Skrive program" i listboxen, når jeg trykker på knappen vil de 2 programmer starte i den rækkefølge de står i i listboxen.

procedure StartProgram(Hvad : string);
begin
    if Hvad='Billede program' then
        ShellExecute(0,Pchar('Open'),Pchar('Notepad.exe'),nil,nil,SW_SHOW);
    if Hvad='Skrive program' then
        ShellExecute(0,Pchar('Open'),Pchar('mspaint.exe'),nil,nil,SW_SHOW);
end;

//---------------------

procedure TForm1.Button1Click(Sender: TObject);
var
    i : integer;
begin
    for i:=0 to ListBox.Count-1 do
        StartProgram(ListBox.Items[i]);
end;

Husk lige ShellApi i din uses.

Tak kroning.
Du har løst mit problem, "jeg gi meget stort 5 tal til dig" :-)
Smid et svar en tak for din tålmodighed :-)
Mvh
Scifo

Godt så :-)