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
|