/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Procedure
Fra : Henning Madsen


Dato : 01-11-02 22:20

Følgende Procedure har jeg lavet 5 af. Eneste forskel er at ListBox1 i næste
Procedure skal hedde ListBox2, det samme med Button11, Form5 og A1. Det
virker korekt, men en hjemmelavet Procedure vel nok være på sin plads her,
men jeg kan jo ikke sende en variabel som skifter 1 tallene ud med 2 taller
???
Er det mugligt at give en løsning til en på et nevu som afspejles i den
følgende programstump.

procedure TForm4.Button11Click(Sender: TObject); //Tasten 'Start Ordren.' på
A1
Var
Ordre : TIniFile; // INI fil med alle oplysninger om een Ordre.
RestRute : String; // Indeholder de manglende maskiner ordren skal til.
NesteMask : String; // Indeholder næste maskine ordren skal til.
P : Integer; // Første position af den førsre '-' i strengen
RestRute.
begin
If ListBox1.Items.Count >= 1 Then Begin
If Button11.Caption = 'Afslut Ordren.' Then
Begin
Form5.Close;
Button11.Caption := 'Start Ordren.';
If ListBox1.Items.Count >= 1 Then Begin
Timer1.Enabled := False; //Stopper
Ordre :=
TiniFile.Create(ExtractFilePath(ParamStr(0))+'\Ordre-'+ListBox1.Items.String
s[0]+'.Ini');
RestRute := Ordre.ReadString('Ordre','RestRute','0');
P := Pos('-',RestRute); // Positionen af '-' i Strengen
RestRute.
NesteMask := Copy(RestRute,1,P-1); // Næste maskine ordren skal til.
Delete(RestRute,1,P); // Sletter den aktuelle maskine i
RestRute.
Ordre.WriteString('Ordre','RestRute',RestRute);
ListBox50.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Mask-'+
NesteMask+'.Txt');
ListBox50.Items.Add(ListBox1.Items.Strings[0]);
ListBox50.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'\Mask-'+
NesteMask+'.Txt');
ListBox1.Items.Delete(0);

ListBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'\Mask-'+Form1.A1+'.T
xt');
Ordre.Free;
ListBox50.Clear;
Timer1.Enabled := True; //Køre
end;
End
Else
Begin
Button11.Caption := 'Afslut Ordren.';
Form5.Show;
End;
End;
end;

Et lille eksempel vel være dejligt
På forhånd tak.
--
----
Med venlig hilsen
Henning Madsen




 
 
Uffe Kousgaard (02-11-2002)
Kommentar
Fra : Uffe Kousgaard


Dato : 02-11-02 08:13

procedure TForm4.Button11Click(Sender: TObject);
Var
< din egen kode her >
listbox: Tlistbox;
begin
if sender=button11 then listbox:= listbox1 else
if sender=button12 then listbox:= listbox2;

Og herefter anvender du listbox i stedet for listbox1 henh. listbox2

Husk du skal ikke lave create eller free på listbox variablen !

Alle Click handlers skal nu pege på button11click





Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste