Records

[mkinzler]

Zitat:

function ...benötigt Ereigenistyp. Ist das dann auch 'string' ?

Hier fürde sich eine Boolean anbieten oder statt function procedure scheiben.
Wie hast du Tabelle deklariert ?

[The Lord]

Delphi-Quellcode:

type TDatensatz = record
       vorname: string[25];
       nachname: string[25];       
       tag: integer;
       monat: integer;
       jahr: integer;     
       bild: string[100];
     end;

var Tabelle: Array of TDatensatz;

Hab es so versucht, wie oben beschrieben!

[mkinzler]

Wie groß ist der (dynamsiche) Array?

[The Lord]

Zitat von mkinzler:

Wie groß ist der (dynamsiche) Array?

Ich habe ja die Größe gar nicht deklariert.

Reicht var Tabelle: Array[1..100] of TDatensatz; ?

[mkinzler]

Kommt auf die Anzahl der Datensätze an. Bei der dynamsichen Methode kann man mit setLength die Größe ändern.

[The Lord]

Zitat von mkinzler:

Kommt auf die Anzahl der Datensätze an. Bei der dynamsichen Methode kann man mit setLength die Größe ändern.

Ok, dann nehm ich 'setLength'.
Jedoch habe ich immer noch einen Fehler, wenn ich schreiben will!

*schnipp*

[edit=Sharky]Bild als Anhang eingefügt. Mfg, Sharky[/edit]

[mkinzler]

http://www.wintotal.de/Tipps/tipp765.html

[The Lord]

Zitat:

1784 0x06F8 Der angegebene Benutzerpuffer ist für den angeforderten Vorgang nicht zulässig.

Was muss ich jetzt tun, damit es funktioniert? Ich komm da alleine nicht drauf

[Klaus01]

Und in der Tabelle steht auch was drin?

Kannst Du einmal Deinen SourceCode anhängen?

Grüße
Klaus

[The Lord]

Delphi-Quellcode:

type TDatensatz = record
       vorname: string[25];
       nachname: string[25];
       initialen: string[5];
       tag: integer;
       monat: integer;
       jahr: integer;
       position: string[5];
       amt: string[5];
       verein: string[50];
       status: string[10];
       bild: string[100];
     end;


var
  Form1: TForm1;
  datei: file of TDatensatz;
  tabelle: array of TDatensatz;
  f: file of integer;

Hier deklariere ich meine Variablen und Typen!

Delphi-Quellcode:

{Speicher- und Ladefunktionen}

procedure SaveToFile(Dest: string);
var f: file of TDatensatz;
    I: Cardinal;
begin
  try
    assignFile(f, Dest);
    reWrite(f);  //oder reset(f)
    for I := low(Tabelle) to high(Tabelle) do
      write(f, Tabelle[i]);
  finally
    closeFile(f);
  end;
end;


procedure LoadFromFile(Source: string);
var f: file of TDatensatz;
    I: Cardinal;
begin
  I := 0;
  try
    assignFile(f, Source);
    reset(f);
    SetLength(Tabelle, FileSize(f));
    while not eof(f) do
      begin
        read(f, Tabelle[I]);
        Inc(I);
      end;   
  finally
    closeFile(f);
  end; 
end;

Hier die beiden Prozeduren!

Delphi-Quellcode:

{Daten in Record speichern}

  LoadFromFile('C:\test.dat');
  if high(Tabelle) > 0 then
    begin
      Tabelle[0].Vorname := Edit1.Text;
      //Edit2.Text := Tabelle[0].Nachname;
    end;
  SaveToFile('C:\test.dat');

Hier will ich mit einem Button Daten speichern!


Ich habe alles aus diesem Thread. Aber ich verstehe das immer noch nicht so ganz