Lazarus - problen s while

Tak to čtení mám tak jak poradil Wikan a bych řek, že je to dobrý napad.

procedure TForm1.LazSerial1RxData(Sender: TObject);
var
    sl: TStringList;
begin
data := '';
stavvazeni := '';
vaha := '';
sleep(50);
data := lazserial1.ReadData;
sl := TStringList.Create;
sl.Delimiter := ',';
sl.DelimitedText := data;

if Trim (sl[0]) = 'ST' then
                    begin
                        stavvazeni := Trim (sl[0]);
                        vaha := Trim (sl[2]);
                        Label1.Caption:= Trim (sl[0]);
                        Label2.Caption:= Trim (sl[1]);
                        Label3.Caption:= Trim (sl[2]);
                        Label4.Caption:= Trim (sl[3]);
                    end
                    else LazSerial1.WriteData('hups');
sl.Free;
end;              

Ale to "ještě by bylo dobré dát tam nějaký timeout, aby program neuváznul v té smyčce navěky" mi nedalo spat.
Takže asi klasika s repeat.

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
i:=0;
LazSerial1.WriteData('hups');

repeat
    inc(i);
    Application.ProcessMessages;
    if stavvazeni = 'ST' then  continue;
    sleep(50);
until i=100;

Memo1.Lines.AddText('stav vazeni ' + stavvazeni);
Label5.Caption:= stavvazeni;
Label6.Caption:= vaha;
end;       

Nějake připominky?

Já bych se i v tomhle případě na cyklus vykašlal. Přidat bych si tam počítadlo, při každém neúspěšném pokusu ho zvednul a pokud by dosáhlo zvolené hodnoty, tak už bych to vážení neopakoval.

Ona to je vaha na nakladní auta do 65 tun.
Když někdo na ní vjede slušně, pomalu tak se ustali mnohem rychlejí než když na ní vjede nějake prase. a prasat je hodně.

Neopakuje se važení.
Při kliknuti se odešle jen jednou WriteData
V LazSerial1RxData se to opakuje dokud vaha je stabilní a pak ukonči
A přes repeat jen hlidam, až se ustali a načtu vahu.

Kluci, jsem se zadrhl na tom posledním.
Chci to uložit, ale aby v nazvu bylo datum a čas a soubor musí být bez připony.
Když použiju formatdatetime('ddddd h:nn', now), mám 17.01.2023 15:46
Počitač bere tečku mezí 01.2023 a tedy mám soubor 17.01 s připonou 2023 15:46
Potřebují změnít ty . třeba za -.
Projet postupně znak po znaku a nahradít bych zvlad.
Je jednodušší zpusob?

Dik.

formatdatetime('dd-mm-yyyy h:nn', now)

Jsi si jistý tvou dvojtečkou? Tak v názvu souboru být nemůže.

Spíš bych doporučil něco jako:

formatdatetime('yyyy-mm-ddThh-nn', now)

Pak to bude správně seřazené.

2023-01-17 16:22 16-22
I tak se mu to melibi.
Když vezmu text soubor a dam přejmenovat, vyhodi chybu.
Takže asi i ta dvojtečka.

Vyhodí chybu. Aha. A nenapíše jakou chybu?

Lazarus žadnou nevyhodi a zamrzne.
Pokud toužiš po te systemové tak tady 2023-01-17 16:22 16-22
Označit - ctrl+c. Vytvořit nový dokumet. Kliknout na poličko uložit a pak ctrl+v, a uložit.

Už to mam vyřešene.
Děkují všem co pomohli.

Tak to je snad jasný, že název souboru s dvojtečkou není platný...

Tak jak kde, že ano ... u mě to například není žádný problém:

[gilhad@cobra-mk3(0) ~] $ ls -al aa*
ls: cannot access 'aa*': No such file or directory
[gilhad@cobra-mk3(0) ~] $ echo -e "test\n druhý řádek" > aa:bb
[gilhad@cobra-mk3(0) ~] $ ls -al aa*
-rw-r--r-- 1 gilhad users 21 2023-01-17 20:02 aa:bb
[gilhad@cobra-mk3(0) ~] $ cat aa:bb
test
 druhý řádek
[gilhad@cobra-mk3(0) ~] $ rm aa:bb
[gilhad@cobra-mk3(0) ~] $ ls -al aa*
ls: cannot access 'aa*': No such file or directory
[gilhad@cobra-mk3(0) ~] $ 

No jistě, vždycky se najde někdo, kdo musí dokázat opak. Z kontextu je asi všem jasné, že to provozuje na Windows...

Nevím, jestli jsem něco nepřehlídnul, ale jediné, co by na to ukazovalo, by bylo, že mu to bez vysvětlení spadne - jestli jsem přehlédnul nějaký kontext, tak mi ukaž kde ...

Nechce se mi plýtvat energií na nějaké přesvědčování a dokazování. Souhlasím s tím, že v některých operačních systémech může být dvojtečka v názvu souboru. Spokojen?

Tak takhle:

formatdatetime('yyyy-mm-dd"T"hh-nn', now)