Forum: Programmieren allgemein
by davtix,
22. Jun 2021
Cardinalsfehler ???? erzähle mir mehr darüber...
-> mit einem ADD button wird ein Tab,2 Buttons und nen StringGrid erstellt.
Dieses StringGrid = box.
//wenn array nur 1 Row dann bestehende SG nutzen ->
//ansonsten -> neues StringGrid erstellen
if ( length(Sar) = 1 ) then
begin
n_SG := Form2.JvStringGrid1;
Forum: Programmieren allgemein
by davtix,
22. Jun 2021
Hi und guten Morgen.
Alles gut ^^ . Ist mir auch schon aufgefallen und habe das geändert,
Das baue ich mit Absicht so hin und kann dann schneller separieren. Wenn alles klappt dann sieht der Code auch so aus wie Du ihn dort geschrieben hast.
- zu box.Cells := konvertBytes( GetFileSize( tempS ) );
leider kommt dann manchmal chinesisch raus, meine Variante beschriftet wirklich jede
-...
Forum: Programmieren allgemein
by davtix,
21. Jun 2021
procedure Delay(const Milliseconds: DWord);
var
FirstTickCount: DWord;
begin
FirstTickCount := GetTickCount;
while ((GetTickCount - FirstTickCount) < Milliseconds) do
begin
Application.ProcessMessages;
Sleep(0);
end;
Forum: Programmieren allgemein
by davtix,
21. Jun 2021
Krass, stimmt. Jetzt funktionierts.
Aber warum ?
Forum: Programmieren allgemein
by davtix,
21. Jun 2021
wenn ich diesen ausklammer, funktioniert alles wieder
if ( FileExists( tempS ) ) then
begin
byte := GetFileSize( tempS );
tempS1 := konvertBytes( byte );
delay(100);
end;
Forum: Programmieren allgemein
by davtix,
21. Jun 2021
gerade getestet:
begrenze ich die Threads auf 10, funktioniert alles wie es soll.. :?
Forum: Programmieren allgemein
by davtix,
21. Jun 2021
For Schleife zählt mehr als vorhanden. iTask, for Schleife, integer -> fehler.
im folgenden Bsp. zählt die (var THI :integer) mehr als angegeben und lässt eine Zählung aus.
Also THI = 0,1,2,3,4,5,6,7,8,9,10,12 <<
Ich dachte hier überschneidet sich irgendwas und wollte dies mit tempTHI := THI; //thi integer für task separieren. doch auch hier wird die 11 ausgelassen und mit 12...