[*]Profan

- page 10 -

RGH

[quote-part:c53f1a91e6=Dietmar Horn]1. qui Possibilité qui bedingten Compilierung.[/quote-part:c53f1a91e6]
Salut,
qui bedingte Compilierung wird es définitif donner. qui Sytax habe je à qui de Delphi angelehnt:

$DEFINE nom: mets une Condition
$UNDEF nom: mets une Condition zurück
$IFDEF nom: qui folgende Code wird seulement compilé, si le Condition gesetzt ist
$IFNDEF nom: qui folgende Code wird seulement compilé, si le Condition pas gesetzt ist
$ELSE : wechselt entre compilieren et pas compilieren
$ENDIF : finissez cela bedingungsabhängige compilieren/pas compilieren.

(Pour den Interpreter ist cela mot compileren par effectuer trop ersetzen.)

Im Interpreter sommes qui Bedingungen WIN32, VER10.0 et INTERPRETER standardmäßig gesetzt, im Compiler qui Bedingungen WIN32, VER10.0.et COMPILER. (chez besoin peut aussi cet Bedingungen avec $UNDEF zurückgesetzt volonté.) Verschachtelung ist erlaubt.

je hoffe, qui qui prochain Subscriptionslieferung, qui cet et autre Erweiterungen contient, encore cet Wochenende versandt wird.

Salut
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

28.04.2006 ▲

Torsten
Rümker

Salut,
mir ist justement quelque chose aufgefallen, cela mir chez Profan irgendwie encore fehlt.
et zwar folgendes:

c'est oui avec Writeini et Readini relativ simple Einträge dans qui Registry trop faire,
et vous auszulesen. mais vous wieder trop entfernen est sans weiteres pas possible.

alors wäre mon Wunsch une Possibilité einzelne Schlüssel et Zweige aus qui Registry
effacer trop peut.

[Éditer] une Possibilité dans qui Registry pour Schlüsseln, Werten et données trop chercher wäre naturellement aussi joli, ist mais wohl pas so important[/Éditer]
MfG
Torsten

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

Jac
de
Lad

bof, je hatte toujours wieder Probleme Registryeinträge mittels ReadIni auszulesen (avant allem si vous pas existierten -> Programmabsturz). peut-être peux là aussi so encore quoi verbessert volonté...

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-part:5f2a90a3d1=Jacob Liebeck]ah oui et quatre Befehle a la PutWord, PutLong et GetWord et GetLong zum Lesen/écrivons de Words/Long dans Fichiers wären une echte Erleichterung!Jac

[/quote-part:5f2a90a3d1]
Ok, dans qui prochain Subscriptionsversion gibt es cet Funktionen et Befehle et je mets sogar encore une sur elle:

PutByte #n, b& écrit un Byte dans qui Dossier.
PutWord #n, w& écrit un Word (2 Byte) dans qui Dossier.
PutLong #n, l& écrit un LongInt (4 Byte) dans qui Dossier
PutChar #n, s$ écrit den String s$ dans qui Dossier (so viele Bytes comment qui String long ist)

b& = GetByte (#n) liest un Byte aus qui Dossier.
w& = GetWord (#n) liest un Word aus qui Dossier.
l& = GetLong (#n) liest un LongInt aus qui Dossier.
s$ = GetChar$ (#n, anz&) liest anz& Bytes aus qui Dossier dans den String s$.

qui Dossier doit avec OpenRW

(im Binärmodus) ouvert worden son et es wird toujours beginnend avec qui aktuellen Dateiposition geschrieben bzw. gelesen.

un kleines Beispiel:
Kompilieren Marque Séparation

!
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
Fin

dans qui prochain Subscriptionsfunktion wird es marcher!

Salut
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-part:cd239c5ae4=iF]func file_get_contents(filename$) gibt comme String (ou bien mem) den kompletten le contenu aus Dossier filename$ zurück.
proc file_put_contents( filename$,{string$|mem#} ) écrit arrêt string$ ou bien mem# dans Dossier filename$.

[/quote-part:cd239c5ae4]
Ok, cet beiden Wünsche sommes par qui Erweiterung de BlockWrite et BlockRead() oui déjà mise en œuvre. (s.o.)

[quote-part:cd239c5ae4]mais encore viel wichtiger: une native Funktion zum ermitteln eines freien Dateihandles pour assign-Anweisungen.

[/quote-part:cd239c5ae4]
Ab qui prochain Subscriptionslieferung gibt es Assign aussi comme Funktion. cela erledigt beides dans einem Aufwasch: Ermitteln des freien Handles et cela Assign:

hDatei& = Assign(Dossier$)

qui Dossier Dossier$ Wird cela prochain ungenutzte Dateihandle zugewiesen. Ist aucun plus libre, gibt es une Fehlermeldung. Ist Dossier$ un Leerstring, erfolgt aucun Zuweisung et cela ermittelte Dateihandle bleibt libre.
dans dem Zusammenhang wurde maintenant konsequent pour gesorgt, qui cela # chez Dateihandles aussi weggelassen peux. (une Ausnahme bildet PRINT # et INPUT #, là es oui de PRINT et INPUT sans Dateiangabe unterschieden volonté doit.)

Beispiel:
Kompilieren Marque Séparation

!
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
Fin

Salut
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

Beim letzten Beispiel ist très bien trop voyons, qui cela Handle zugewiesen bleibt.

quoi passiert si je qui Handles pas freigebe? vous êtes ensuite irgendwann alle, alle...?

comment gebe je qui Handle-Variablen Version libre? (chez qui avec # ist es oui klar; simple Leerstring angeben - mais chez qui Funktionsversion bekomme je oui ne...aucune bestimmtes Handle trop saisir...)

z.B. so?
UnAssign Handle&

ou bien:
UnAssign #1
UnAssign( Handle&)

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

dans qui Aider steht (assez versteckt), qui cela Namensraum-Symbol chez Konstanten pas funktioniert.

Wird cela behoben ou bien soll es so rester? Mir wäre es lieb, si je aussi Konstanten dans einer Unit angeben pourrait (et là wäre cela Namensraum-Symbol arrêt angebracht).

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

[quote-part:1c94bbedb4=Michael Wodrich]quoi passiert si je qui Handles pas freigebe? vous êtes ensuite irgendwann alle, alle...?[/quote-part:1c94bbedb4]
oui, naturellement. ensuite gibt es une entsprechende Fehlermeldung.
[quote-part:1c94bbedb4]comment gebe je qui Handle-Variablen Version libre? (chez qui avec # ist es oui klar; simple Leerstring angeben - mais chez qui Funktionsversion bekomme je oui ne...aucune bestimmtes Handle trop saisir...)[/quote-part:1c94bbedb4]
So comment bisher: Assign Handle&, ou bien Assign #Handle&,.
(si avec # ou bien sans ist chez allen Dateifunktionen égal.)
il peut un pas plus benötigtes Handle aussi simple einer anderen Dossier zuweisen: Assign Handle&, Dossier$. le vieux Assign-Befehl bleibt weiterhin conservé et hat durchaus encore sa Berechtigung.

Salut
Roland

Echtes fopen/fclose ensuite 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-part:e3c7004013=iF]iF: isset(a&) zum vérifier si a& declariert ist[/quote-part:e3c7004013]
j'ai pour qui prochain Subscriptionsversion SizeOf so erweitert, qui a) aussi qui Taille de anderen comme Bereichsvariablen ermittelt volonté peux et b) im piège qui qui Variable pas existiert, -1 comme Ergebnis ausgegeben wird.

Funktion a) ist relativ nutzlos, là cet Variablen plan toujours Float (Size = 8 ), Longint/Integer (Size = 4) ou bien String (Size = Len(String)) sommes.

Salut
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

là qui Leerstring-paramètre qui Listboxen maintenant (si aussi comme numéro) verwendet wird, c'est moi une concept pour Combo-Boxen gekommen; là pourrait on es so ähnlich faire. 1 steht pour unsortiert, avec 2 peut sich aussi Text per clavier eingeben et 3 bewirkt beides. Unsortiertheit et Texteingabe konnten oui bereits avec Profan² 6.6 realisiert volonté.

P.S.: je hoffe, je erhalte diesmal une Antwort sur meinen Beitrag.

Nico Madysa

03.05.2006 ▲

RGH

[quote-part:59378368a8=Nico Madysa]là qui Leerstring-paramètre qui Listboxen maintenant (si aussi comme numéro) verwendet wird, c'est moi une concept pour Combo-Boxen gekommen; là pourrait on es so ähnlich faire. 1 steht pour unsortiert, avec 2 peut sich aussi Text per clavier eingeben et 3 bewirkt beides.[/quote-part:59378368a8]
Gute concept! Ist dans qui prochain Subscriptionslieferung (aujourd'hui soir?) bereits avec drin!

Salut
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

03.05.2006 ▲

Jac
de
Lad

allô Roland!

Erstmal merci pour qui Implementierung de PutLong et so plus!!! mais ist es pas irgendwie verwirrend, dass du PutChar verwendest um une String, et pas un einzelnes marque (Char) trop écrivons? bof, je sais, dass GetString$ oui déjà vergeben ist et es c'est pourquoi warscheinlich schwierig volonté serait...plan seulement quelque chose verwirrend...ah ist eigentlich égal, je werde mich déjà tour gewöhnen! qui neuen Funktionen/Prozeduren sommes unheimlich nützlich et oui c'est ca cela, quoi je mir déjà longtemps gewünscht habe!

merci,
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

03.05.2006 ▲