[*]Profan

- Página 10 -

RGH

[quote:c53f1a91e6=Dietmar Horn]1. El Möglichkeit el bedingten Compilierung.[/quote:c53f1a91e6]
¡Hola,
el bedingte Compilierung se lo definitiv geben. El Sytax Yo a el de Delphi angelehnt:

$DEFINE Name: setzt una Condición
$UNDEF Name: setzt una Condición zurück
$IFDEF Name: el folgende Code se sólo compiliert, si la Condición gesetzt es
$IFNDEF Name: el folgende Code se sólo compiliert, si la Condición no gesetzt es
$ELSE : wechselt zwischen compilieren y no compilieren
$ENDIF : final el bedingungsabhängige compilieren/no compilieren.

(Für el Interpreter es el Wort compileren por ausführen a sustituir.)

Im Interpreter son el Bedingungen WIN32, VER10.0 y INTERPRETER standardmäßig gesetzt, en el Compiler el Bedingungen WIN32, VER10.0.y COMPILER. (En Bedarf puede estos Bedingungen con $UNDEF zurückgesetzt voluntad.) Verschachtelung es erlaubt.

Yo hoffe, daß el nächste Subscriptionslieferung, el esta y otro Erweiterungen enthält, todavía dieses Wochenende versandt se.

Saludo
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

¡Hola,
me es gerade algo aufgefallen, el me en Profano irgendwie todavía fehlt.
Und zwar folgendes:

Es sí con Writeini y Readini relativ simplemente Einträge en el Registry a hacer,
y ellos auszulesen. Aber ellos otra vez a entfernen es así sin weiteres no posible.

Also wäre mein Wunsch una Möglichkeit einzelne Schlüssel y Zweige de el Registry
löschen a puede.

[Editar] Un Möglichkeit en el Registry después de Schlüsseln, Werten y Daten a suchen wäre natürlich auch schön, es pero probablemente no así wichtig[/Editar]
MfG
Torsten

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

Jac
de
Lad

Naja, Yo hatte siempre otra vez Problemas Registryeinträge mittels ReadIni auszulesen (antes allem si ellos no existierten -> Programmabsturz). Tal vez no puede auch así todavía qué ser mejorada...

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]Ach sí y vier Befehle a la PutWord, PutLong y GetWord y GetLong para Lesen/Carta de Words/Largo en Archivos wären una echte Erleichterung!Jac

[/quote:5f2a90a3d1]
Ok, en el nächsten Subscriptionsversion hay esta Características y Befehle y yo poner incluso todavía eins en él:

PutByte #n, b& schreibt una Byte en el Expediente.
PutWord #n, w& schreibt una Word (2 Byte) en el Expediente.
PutLong #n, l& schreibt una LongInt (4 Byte) en el Expediente
PutChar #n, s$ schreibt el String s$ en el Expediente (así viele Bytes como el String lang es)

b& = GetByte (#n) liest una Byte de el Expediente.
w& = GetWord (#n) liest una Word de el Expediente.
l& = GetLong (#n) liest una LongInt de el Expediente.
s$ = GetChar$ (#n, anz&) liest anz& Bytes de el Expediente en el String s$.

El Expediente muß con OpenRW

(en el Binärmodus) geöffnet worden ser y lo se siempre beginnend con el aktuellen Dateiposition geschrieben o. gelesen.

Ein kleines Ejemplo:
Kompilieren Marca Separación

!
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 el nächsten Subscriptionsfunktion se lo trabajo!

Saludo
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$) son como String (oder mem) el kompletten Inhalt de Expediente filename$ zurück.
proc file_put_contents( filename$,{cadena$|mem#} ) schreibt sólo cadena$ oder mem# en Expediente filename$.

[/quote:cd239c5ae4]
Ok, esta beiden Wünsche son por el Erweiterung de BlockWrite y BlockRead() sí ya umgesetzt. (s.o.)

[quote:cd239c5ae4]Aber todavía viel wichtiger: Un native Función para ermitteln uno freien Dateihandles para assign-Anweisungen.

[/quote:cd239c5ae4]
Ab el nächsten Subscriptionslieferung hay Asignar auch como Función. Das hecho beides en un Aufwasch: Ermitteln des freien Handles y el Asignar:

hDatei& = Asignar(Expediente$)

Der Expediente Expediente$ Wird el nächste ungenutzte Dateihandle zugewiesen. Ist keines mehr frei, hay una Fehlermeldung. Ist Expediente$ una Leerstring, es no Zuweisung y el ermittelte Dateihandle restos frei.
In el Zusammenhang wurde ahora konsequent dafür gesorgt, daß el # en Dateihandles auch weggelassen kann. (Una excepción bildet PRINT # y INPUT #, como lo sí de PRINT y INPUT sin Dateiangabe unterschieden voluntad muß.)

Ejemplo:
Kompilieren Marca Separación

!
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

Saludo
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 Ejemplo es muy bien a sehen, daß el Handle zugewiesen restos.

Was passiert si yo el Handles no freigebe? Sind ellos entonces irgendwann todos, todos...?

Como Me estoy dando el Handle-Variables Versión frei? (en con # es sí klar; simplemente Leerstring angeben - pero en el Funktionsversion bekomme Yo sí kein bestimmtes Handle a fassen...)

z.B. así?
UnAssign Handle&

oder:
UnAssign #1
UnAssign( Handle&)

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

In el Ayuda es (bastante versteckt), daß el Namensraum-Symbol en Konstanten no funktioniert.

Wird el remedio oder se lo así bleiben? Mir wäre lo lieb, si yo auch Konstanten en uno Unit angeben podría (y como wäre el Namensraum-Symbol sólo adecuado).

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

[quote:1c94bbedb4=Michael Wodrich]Was passiert si yo el Handles no freigebe? Sind ellos entonces irgendwann todos, todos...?[/quote:1c94bbedb4]
Sí, natürlich. Dann hay una entsprechende Fehlermeldung.
[quote:1c94bbedb4]Como Me estoy dando el Handle-Variables Versión frei? (en con # es sí klar; simplemente Leerstring angeben - pero en el Funktionsversion bekomme Yo sí kein bestimmtes Handle a fassen...)[/quote:1c94bbedb4]
So como bisher: Asignar Handle&, oder Asignar #Handle&,.
(Ob con # oder sin es en allen Dateifunktionen egal.)
Se puede una no mehr benötigtes Handle auch simplemente uno otro Expediente zuweisen: Asignar Handle&, Expediente$. Der alte Asignar-Befehl restos weiterhin obtener y ha durchaus todavía seine Berechtigung.

Saludo
Roland

Echtes fopen/fclose entonces así: [...]

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&) para Prüfen si a& declariert es[/quote:e3c7004013]
Yo habe para el nächste Subscriptionsversion SizeOf así erweitert, daß a) auch el Größe de otro como Bereichsvariablen ermittelt voluntad kann y b) en el Falle daß el Variable no existiert, -1 como Ergebnis ausgegeben se.

Función a) es relativ nutzlos, como esta Variables eben siempre Float (Size = 8 ), Longint/Integer (Size = 4) oder String (Size = Len(String)) son.

Saludo
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

Como el Leerstring-Parámetro el Listboxen ahora (si auch como Zahl) verwendet se, me está una Concepto para Combo-Boxen gekommen; como podría uno lo así ähnlich hacer. 1 es para unsortiert, con 2 lässt se auch Texto por Tastatur eingeben y 3 bewirkt beides. Unsortiertheit y Texteingabe konnten sí ya con Profano² 6.6 realisiert voluntad.

P.S.: Yo hoffe, Yo erhalte diesmal una Antwort en media Contribución.

Nico Madysa

03.05.2006 ▲

RGH

[quote:59378368a8=Nico Madysa]Como el Leerstring-Parámetro el Listboxen ahora (si auch como Zahl) verwendet se, me está una Concepto para Combo-Boxen gekommen; como podría uno lo así ähnlich hacer. 1 es para unsortiert, con 2 lässt se auch Texto por Tastatur eingeben y 3 bewirkt beides.[/quote:59378368a8]
Gute Concepto! Ist en el nächsten Subscriptionslieferung (heute Abend?) ya con drin!

Saludo
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

Hola Roland!

Erstmal Gracias para el Implementierung de PutLong y así más!!! Aber es no irgendwie verwirrend, dass du PutChar verwendest en una String, y no una einzelnes Signo (Char) a escribir? Naja, Yo weiß, dass GetString$ sí ya vergeben es y lo deshalb warscheinlich schwierig voluntad sería...eben sólo algo verwirrend...ach es eigentlich egal, Yo voluntad mich ya dran gewöhnen! El neuen Características/Prozeduren son unheimlich nützlich y genau el, Yo me ya largo gewünscht habe!

Gracias,
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 ▲