[*]Profan

- Page 10 -

RGH

[quote:c53f1a91e6=Dietmar horn]1. The Possibility the bedingten Compilierung.[/quote:c53f1a91e6]
Hi,
The bedingte Compilierung becomes it definitiv give. The Sytax have I The of Delphi angelehnt:

$DEFINE name: setting a circumstance
$UNDEF name: setting a circumstance back
$IFDEF name: the following code becomes only compiliert, if The circumstance staid is
$IFNDEF name: the following code becomes only compiliert, if The circumstance not staid is
$ELSE : changes between compilieren and not compilieren
$ENDIF : exits the bedingungsabhängige compilieren/not compilieren.

(for the Interpreter is the word compileren through perform To supplant.)

in the Interpreter are The terms WIN32, VER10.0 and INTERPRETER standardmäßig staid, in the Compiler The terms WIN32, VER10.0.and COMPILER. (with want can also these terms with $UNDEF reset go.) Verschachtelung is allows.

I hope, that the next Subscriptionslieferung, The these and others extensions contains, yet this weekend shipped becomes.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

04/28/06 ▲

Torsten
Rümker

Hi,
i'm straight something noticed, the me with Profan somehow yet missing.
and of course the following:

its Yes with Writeini and Readini relatively simply Entries into Registry To make,
and tappt im dunkeln auszulesen. but tappt im dunkeln again To Remove is so without further you don't say so.

means would my wish a Possibility single Key and sprigs from the Registry
delete to.

[Edit] an Possibility in the Registry to Schlüsseln, Values and data to search would naturally too beautiful, is well not so important[/Edit]
MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

Jac
de
Lad

Well, I had over ands over again Problems Registryeinträge through ReadIni auszulesen (particularly as they not existed -> Programmabsturz). Perhaps can there too so yet what correct go...

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

RGH

[quote:5f2a90a3d1=Jacob Liebeck]alas Yes and four command a la PutWord, PutLong and GetWord and GetLong to that reading/write of Words/Long in Files wären a real relief!Jac

[/quote:5f2a90a3d1]
OK, in the next Subscriptionsversion there these functions and command what about me set even yet one on it:

PutByte #n, b& writes one byte into File.
PutWord #n, w& writes one Word (2 byte) into File.
PutLong #n, l& writes one LongInt (4 byte) into File
PutChar #n, s$ writes whom String s$ into File (so many Bytes How the String long is)

b& = GetByte (#n) reads one byte from the File.
w& = GetWord (#n) reads one Word from the File.
l& = GetLong (#n) reads one LongInt from the File.
s$ = GetChar$ (#n, anz&) reads anz& Bytes from the File in whom String s$.

The File must with OpenRW

(in the Binärmodus) opened been his and it'll always beginnend with the actually Dateiposition written or. red.

A small example:
Compile Mark Separation

!
CLS
Assign #1, "TEST.DAT"
OpenRW #1
PutChar #1, "TestDatei "
PutLong #1, 31
PutWord #1, 32
PutByte #1, 33
Close #1
OpenRW #1
Print GetChar$(#1, 10)
Print GetLong(#1)
Print GetWord(#1)
Print GetByte(#1)
Close #1
Print "OK"
WaitInput
End

in the next Subscriptionsfunktion becomes it functions!

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

[quote:cd239c5ae4=iF]func file_get_contents(filename$) gives as String (or mem) whom kompletten Content from File filename$ back.
proc file_put_contents( filename$,{string$|mem#} ) writes hold string$ or mem# in File filename$.

[/quote:cd239c5ae4]
OK, these both Opportunities are by the Extension BlockWrite and BlockRead() already umgesetzt. (s.o.)

[quote:cd239c5ae4]but yet plenty importent: an native function to that detect one disengaged Dateihandles for assign-instructions.

[/quote:cd239c5ae4]
ex the next Subscriptionslieferung there Assign too as function. the Done both in a Aufwasch: detect the disengaged Handles and the Assign:

hDatei& = Assign(File$)

The File File$ becomes the next ungenutzte Dateihandle allocated. is keines More spare, there a Error Message. is File$ one Leerstring, results no Zuweisung and the ermittelte Dateihandle remaining spare.
in the Context watts now streng for provided, that the # with Dateihandles too omitted can. (An exception forms PRINT # and INPUT #, there it Yes of PRINT and INPUT without Dateiangabe distinguished go must.)

example:
Compile Mark Separation

!
Declare Datei&
CLS
Datei& = Assign("TEST2.DAT")
OpenRW Datei&
PutChar Datei&, "TestDatei "
PutLong Datei&, 31
PutWord Datei&, 32
PutByte Datei&, 33
Close Datei&
OpenRW Datei&
Print GetChar$(Datei&, 10)
Print GetLong(Datei&)
Print GetWord(Datei&)
Print GetByte(Datei&)
Close Datei&
Print "OK"
WaitInput
End

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Michael
Wodrich

at that last example is very well To see, that the lever allocated remaining.

What happens if I The Handles not freigebe? are you then sometime any, any...?

How give I The lever-variables Version spare? (with the with # is it Yes klar; simply Leerstring indicate - but with the Funktionsversion I get Yes no bestimmtes lever To grasp...)

z.B. so?
UnAssign Handle&

or:
UnAssign #1
UnAssign( Handle&)

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

in the Help standing (quite cache), that the Namensraum-symbol with Konstanten not functions.

becomes the fixed or should it so stay? me would it endearing, if I too Konstanten in a Unit indicate could (and there would the Namensraum-symbol hold appropriate).

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

[quote:1c94bbedb4=Michael Wodrich]What happens if I The Handles not freigebe? are you then sometime any, any...?[/quote:1c94bbedb4]
Yes, naturally. then there a suitable Error Message.
[quote:1c94bbedb4]How give I The lever-variables Version spare? (with the with # is it Yes klar; simply Leerstring indicate - but with the Funktionsversion I get Yes no bestimmtes lever To grasp...)[/quote:1c94bbedb4]
so How yet: Assign Handle&, or Assign #Handle&,.
(whether with # or without is with all Dateifunktionen alike.)
one can one not any more benötigtes lever too simply of/ one others File allocate: Assign Handle&, File$. the old boy Assign-commands remaining furthermore receive and has thoroughly yet its Legitimacy.

Greeting
Roland

Echtes fopen/fclose then so: [...]

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

[quote:e3c7004013=iF]iF: isset(a&) to that Verify whether a& declariert is[/quote:e3c7004013]
I have for next Subscriptionsversion SizeOf so extended, that a) too The Size of others as Memory-Variables determined go can and b) in the entrapment that the Variable not existing, -1 as Result outputted becomes.

function a) is relatively useless, there these variables even always Float (Size = 8 ), Longint/Integer (Size = 4) or String (Size = Len(String)) are.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Nico
Madysa

there the Leerstring-Parameter the Listboxes now (if too as number) is used, is me a Idea for Combo-boxing gekommen; there could one it so similar make. 1 standing for unsortiert, with 2 can itself too Text by keyboard enter and 3 bewirkt both. Unsortiertheit and Text-Input could Yes already with Profan² 6.6 realized go.

P.s.: I hope, I sustain this time a response on my Posting.

Nico Madysa

05/03/06 ▲

RGH

[quote:59378368a8=Nico Madysa]there the Leerstring-Parameter the Listboxes now (if too as number) is used, is me a Idea for Combo-boxing gekommen; there could one it so similar make. 1 standing for unsortiert, with 2 can itself too Text by keyboard enter and 3 bewirkt both.[/quote:59378368a8]
good idea! is in the next Subscriptionslieferung (today evening?) already with drin!

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

05/03/06 ▲

Jac
de
Lad

Hello Roland!

Erstmal thanks for Implementierung of PutLong an so on!!! but is not somehow verwirrend, that You PutChar verwendest circa a String, and not one single characters (Char) To write? Well, I know, that GetString$ already give away is and it therefore warscheinlich difficult go would...even only slightly verwirrend...alas is really alike, i'll me already dran gewöhnen! The new functions/Procedures are awfully useful and very the, I me already long desired have!

thanks,
Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

05/03/06 ▲