savedialog/opendialog

[marcelwhip]

danke, geht trotzdem nimmer!

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);  ///laden
  begin
    opendialog1.execute;
    AssignFile(F, opendialog1.filename);
    Reset(F);
    BlockRead(F, @eintrag, "hier hängt der compiler" 300 * SizeOf(TDaten));
    Close(F);
  end;

ciao!

[himitsu]

versuch mal:

Delphi-Quellcode:

Var Size: Integer;

Size := 300 * SizeOf(TDaten);
BlockRead(F, @eintrag, Size);

PS: will BlockRead überhaupt 'nen Pointer zu den Daten, oder ist das als Var definiert?

[TeronG]

laut OH
procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]); laut System.pas
function _BlockRead(var f: TFileRec; buffer: Pointer; recCnt: Longint; var recsRead: Longint): Longint;

[himitsu]

laut OH

Delphi-Quellcode:

BlockRead(F, eintrag, 300 * SizeOf(TDaten));
//oder
Var R: Integer;  // tatsächlich gelesene Bytes 
BlockRead(F, eintrag, 300 * SizeOf(TDaten), R);

laut System.pas

Delphi-Quellcode:

Var R: Integer;
BlockRead(F, @eintrag, 300 * SizeOf(TDaten), R);

Aber vermutlich weren wohl die OH-Varianten genutzt ... das in System.pas ist nur bestimmt nur die CompilerMagic-Variante (CompilerIntern).


Also wird das Erste von OH gut passen Ô.o

[marcelwhip]

Sorry Leute, acuh so gehts nciht, wenn man das @ weglässt den compiliert es, aber dann versagt er beim speichern, fehlermeldung mit irgendwie EloutError.

Gibts denn da nicht ne andere Möglichkeit, irgendwie, den array in den file schreiben und dann nur den file speichern ohne Parameter?

[jfheins]

Aber sicher gibt es die

Nimm eine Collection, die Colection ist dein Array, dann brauchst du eine Itemklasse, die die Daten enthält, und schon ist alles einfacher

[himitsu]

hmmm

hab leider kein Delphi hier, um es selber mal zu testen, aber eigentlich sllte es doch funktionieren?

Aber du könntest natürlich die Array-Daten in einen anderen Speicher (z.B. einen Stream) kopieren und diesen dann in einer Datei abspeichern.
Und Das auslesen dann eben zuerst in den Stream und von dort die Daen zurück ins Array kopieren, aber wie gesagt solle es auch ohne einen derartigen Umweg gehen -.-''

[marcelwhip]

so eine collection, dann muss ich statt array[1..xxx] deien daten:collection[1..xxx]of TDaten deklarieren, und dann
collection.item1:=edit1.text; ?
oder wie
file.write?

[jfheins]

Collection:

Eine Collection ist eine Klasse. Wie TObjectList zum Beispiel.

Die musst du dann erstellen, befüllen, speichern und wieder freigeben.

Ersatz für ein Array of String könnte (ungetestet) etwa so aussehen:

Delphi-Quellcode:

type

  StringItem = class (TCollectionItem)
  private
    FStr: String;
  published
    property Str: String read FStr write FStr;
  end;

var
  Coll: TJsCollection;

...

// String hinzufügen
with Coll.Add as StringItem do
  Str := 'Mein toller unbegenzter Daten-String';

// löschen usw. weis ich jetzt nicht genau, schau mal in die Hilfe von TCollection

// speichern
Coll.SaveToFile ('C:\Daten.dat');

// laden
Coll.LoadFromFile ('C:\Daten.dat')

TJsCollection & Co gibt's hier: http://www.delphipraxis.net/internal...ct.php?t=28945

Ach, und alci hat da auch ein Tutorial dazu, vielleicht lässt er dich ja mal reingucken ...
Gut, ich habs auch noch, aber frag' mal lieber alci ;-)

[marcelwhip]

danke!
werde ich gleich mal ausprobieren, das geht hier nämlcih langsam über das in der schule gelernet hinaus!

Danke

Achso, kann jemand mir ein Buch empfhlen, womit man delphi vernünftig lernen kann?