PureBasic, BlitMax, VbNet, Delphi Beispiel zum speichern

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	mull Betreff: PureBasic, BlitMax, VbNet, Delphi Beispiel zum speichern	Sa, Dez 17, 2005 10:02 Antworten mit Zitat
Hier mal aus Spaß die Cods der obrigen Sprachen zum abspeichern einer Integer Variable. PureBasic Procedure CountStarts() Shared StartsZaehler.L Ergebnis = OpenFile(0, "Starts.dat") Starts = ReadLong() Starts = Starts + 1 CloseFile(0) Ergebnis = OpenFile(0, "Starts.dat") WriteLong(Starts) CloseFile(0) EndProcedure BITZMAX Function StartsCounter() Local StartsZaehler:Int Local x:TStream = OpenFile("Starts.dat", True, True) If x = Null Then CreateFile( "Starts.dat" ) x:TStream = OpenFile("Starts.dat", True, True) Else StartsZaehler = Readint(x) CloseStream(x) EndIf x:TStream = OpenFile("Starts.dat", True, True) StartsZaehler:+1 WriteInt(x, StartsZaehler) CloseStream(x) End Function VBNET Sub StartsCounter() Dim StartsZähler % Dim fs As IO.FileStream Dim Datei As String = DatenPfad + "Starts.dat" If IO.File.Exists(Datei) Then fs = New IO.FileStream(Datei, IO.FileMode.Open) Dim br As New IO.BinaryReader(fs) StartsZähler = br.ReadInt32 + 1 br.Close() End If fs = New IO.FileStream(Datei, IO.FileMode.Create) Dim bw As New IO.BinaryWriter(fs) bw.Write(StartsZähler) bw.Close() End Sub Delphi Procedure StartsConter; Var StartsZaehler: Integer; if FileExists(SpezialPfad + 'Starts.dat') then begin Fs:= TFileStream.Create(SpezialPfad + 'Starts.dat', fmOpenRead); Fs.ReadBuffer(Starts, SizeOf(Starts)); end else begin Fs:= TFileStream.Create(SpezialPfad + 'Starts.dat', fmCreate); StartsZaehler:= 0; end; Fs.Free; Fs:= TFileStream.Create(SpezialPfad + 'Starts.dat', fmOpenWrite); Inc(StartsZaehler); FS.WriteBuffer(Starts, SizeOf(StartsZaehler)); Fs.Free; end;

mull

Betreff: PureBasic, BlitMax, VbNet, Delphi Beispiel zum speichern

Sa, Dez 17, 2005 10:02
Antworten mit Zitat

Hier mal aus Spaß die Cods der obrigen Sprachen zum abspeichern einer Integer Variable.

PureBasic
Procedure CountStarts()
Shared StartsZaehler.L
Ergebnis = OpenFile(0, "Starts.dat")
Starts = ReadLong()
Starts = Starts + 1
CloseFile(0)
Ergebnis = OpenFile(0, "Starts.dat")
WriteLong(Starts)
CloseFile(0)
EndProcedure

BITZMAX
Function StartsCounter()
Local StartsZaehler:Int
Local x:TStream = OpenFile("Starts.dat", True, True)
If x = Null Then
CreateFile( "Starts.dat" )
x:TStream = OpenFile("Starts.dat", True, True)
Else
StartsZaehler = Readint(x)
CloseStream(x)
EndIf
x:TStream = OpenFile("Starts.dat", True, True)
StartsZaehler:+1
WriteInt(x, StartsZaehler)
CloseStream(x)
End Function

VBNET
Sub StartsCounter()
Dim StartsZähler %
Dim fs As IO.FileStream
Dim Datei As String = DatenPfad + "Starts.dat"
If IO.File.Exists(Datei) Then
fs = New IO.FileStream(Datei, IO.FileMode.Open)
Dim br As New IO.BinaryReader(fs)
StartsZähler = br.ReadInt32 + 1
br.Close()
End If
fs = New IO.FileStream(Datei, IO.FileMode.Create)
Dim bw As New IO.BinaryWriter(fs)
bw.Write(StartsZähler)
bw.Close()
End Sub

Delphi
Procedure StartsConter;
Var StartsZaehler: Integer;
if FileExists(SpezialPfad + 'Starts.dat') then begin
Fs:= TFileStream.Create(SpezialPfad + 'Starts.dat', fmOpenRead);
Fs.ReadBuffer(Starts, SizeOf(Starts));
end else begin
Fs:= TFileStream.Create(SpezialPfad + 'Starts.dat', fmCreate);
StartsZaehler:= 0;
end;
Fs.Free;
Fs:= TFileStream.Create(SpezialPfad + 'Starts.dat', fmOpenWrite);
Inc(StartsZaehler);
FS.WriteBuffer(Starts, SizeOf(StartsZaehler));
Fs.Free;
end;