🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #188

prosze o pomoc z TurboVision

#188
From: Sekai
Date: Sat, 19 Dec 1998 22:53
37 lines
2349 bytes
Ubzdurało mi się napisać mały programik usprawniający
pracę w Laboratorium Chemicznym.

Chodzi o przeliczenie kilku danych . Nie mam problemu
jeśli chodzi o napisanie programu "strukturalnie" - natomiast
w TurboVision - zaciąłem się.

Przy pomocy różnych książek doszedłem, z większym lub  co
częściej : z mniejszym zrozumieniem
                                            :-)
do wyświetlenia okienka z prośbą o wklepanie odpowiednich
danych. Program będzie musiał zapamiętać kilka danych
tekstowych (krótka charakterystyka analizowanej próbki) i
dane liczbowe. I tu zaczynają się schody (<= Kursywa BOLD):

Po pierwsze:

    Jak ściągnąć te dane (tekstowe i liczbowe) z obiektu TInputLine i
    wykorzystać je do dalszych obliczeń ?

    Założyłem sobie mały rekordzik : Dane do trzymania tych danych, ale
    coś nie bardzo to działa - tj. metoda OknoDialogowe^.GetData(Dane).

Dalej:

    Ponieważ  dane liczbowe powiązane są w sposób logiczny,
    dobrze by było po drodze sprawdzać ten fakt ( plus wymuszenie
    na użytkowniku poprawnego wprowadzenia danych np: możliwość
    wprowadzenia tylko liczby o określonym formacie tj np: 12.1234 -
    dwie cyfry dziesiętne i 4 po przecinku).
    Wiem że można użyć do tego Validatorów - ale jak dokładnie ?.
    (To co piszą w tych książkach przechodzi ludzkie pojęcie)

Jeśli jest to możliwe to prosiłbym o konkretny przykład takich
rozwiązań (może być metodą łopatologii).

greetings to all of you from Sekai .
Technical Details
Message-ID: <75havq$rk2$1@korweta.task.gda.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.task.gda.pl!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.task.gda.pl!not-for-mail
From: "Sekai" <sekai@kki.net.pl>
Newsgroups: pl.comp.lang.pascal
Subject: prosze o pomoc z TurboVision
Date: Sat, 19 Dec 1998 23:53:18 +0100
Organization: CI TASK http://news.task.gda.pl/
Lines: 41
Message-ID: <75havq$rk2$1@korweta.task.gda.pl>
NNTP-Posting-Host: ppp189b.gdansk.tpnet.pl
X-Trace: korweta.task.gda.pl 914108218 28290 194.204.134.189 (19 Dec 1998 22:56:58 GMT)
X-Complaints-To: abuse@task.gda.pl
NNTP-Posting-Date: 19 Dec 1998 22:56:58 GMT
X-Newsreader: Microsoft Outlook Express 4.72.3110.5
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit