StringGrid

[youuu]

Magst du die Daten direkt aus deinen EditFeld in das StringGrid speichern oder aus deinem Record raus?

[Kunoishi]

ich wolte diesen aus den Record heraus lesen

[youuu]

Delphi-Quellcode:

procedure TFormMain.Button1Click(Sender: TObject);
begin
  StringGrid.Cells[4,StringGrid.RowCount +1] := Rec.ArtikelWert;
  StringGrid.Cells[5,StringGrid.RowCount +1] := Rec.ArtikelGesamtPreis;
end;

Ich weiß leider nicht wie dein Record aufgebaut ist.

Aber so in der Art sollte es funktionieren.

Vorraus gesetzt du speicherst deine eingegebenen Daten vorher in dein Record, das sehe dann so aus:

Delphi-Quellcode:

Rec.Artikel:= EditArtikelBezeichnung.Text;
Rec.ArtikelAnzahl:= EditArtikelAnzahl.Text;
.
.
.

So werden die Daten. indem man auf einen Button klickt in dein StringGrid eingegeben, du musst natürlich den namen deines StringGrids einsetzen.

oder F1 benutzen, das ist dann die interne Delphi Hilfe.

[Kunoishi]

ich habe hier mal ein auszug

Delphi-Quellcode:

nit Artikelverwaltung;

interface


uses classes, grids;

// Datenstruktur für die Speicherung auf Festplatte
// deshalb SHORTSTRING
type TArtikelerfassungRec = packed record
       Datensatz:ShortString;
       AbteilungName:ShortString;
       AbteilungNr:ShortString;
       Artikel:ShortString;
       ArtikelAnzahl:ShortString;
       ArtikelWert:ShortString;
       ArtikelGesamtpreis:ShortString;
       ArtikelVerbleib:ShortString;
       Fremdobjekt:ShortString;
end;

// Pointer auf die Struktur, notwendig für TList
type pArtikelerfassungRec = ^TArtikelerfassungRec;


type
 CArtikelerfassung = class(Tobject)
  private
    Liste:TList;  // privates Liste
  protected
  public
    constructor Create;
    destructor  Destroy; override;
    function    Count:integer;
    procedure   add(rec:TArtikelerfassungRec);
    procedure   clear;
    procedure   Delete(Nr:integer);
    procedure   Save(szDatei:string);
    procedure   Load(szDatei:string);
    function    getItem(Nr:integer):TArtikelerfassungRec;
    procedure   setItem(Nr:integer; Rec:TArtikelerfassungRec);
    procedure   Show(ArtikelGrid:TStringGrid);
  published
end;

procedure InitArtikelerfassungRec(var Rec:TArtikelerfassungRec);

implementation

uses SysUtils;

constructor CArtikelerfassung.Create;
begin
    // Erzeugung der Liste
  Liste := TList.create;
end;

destructor CArtikelerfassung.Destroy;
begin
  inherited Destroy;
    // Freigeben des Speichers
  clear;
  Liste.free;
end;

// gibt die Anzahl der Einträge aus
function    CArtikelerfassung.Count:integer;
begin
  result := Liste.count;
end;

// fügt einen Datensatz in die Liste
// eventuell Umstellung auf Pointer Parameter
procedure  CArtikelerfassung.add(rec:TArtikelerfassungRec);
var pRec:pArtikelerfassungRec;
begin
  new(pRec);
  pRec^:= rec;
  Liste.add(pRec);
end;

// Ausgabe des Nr Elementes
// Achtung:  Nr zählt von 0 bis N-1
function CArtikelerfassung.getItem(Nr:integer):TArtikelerfassungRec;
var pRec:pArtikelerfassungRec;
begin
  pRec := Liste.Items[Nr];
  result := pRec^;
end;


// Setzt ein Elementes neu
// Achtung:  Nr zählt von 0 bis N-1
procedure CArtikelerfassung.setItem(Nr:integer; Rec:TArtikelerfassungRec);
var pRec:pArtikelerfassungRec;
begin
  pRec := Liste.Items[Nr];
  pRec^ := Rec;
end;


// löscht alle Datenätze
procedure   CArtikelerfassung.clear;
var i:integer;
var pRec:pArtikelerfassungRec;
begin
  for i:=0 to Liste.Count-1 do
  begin
    pRec := Liste.Items[i];
    dispose(pRec);
  end;
  Liste.clear;

end;

// Löscht ein Elementes
// Achtung:  Nr zählt von 0 bis N-1
procedure   CArtikelerfassung.Delete(Nr:integer);
var pRec:pArtikelerfassungRec;
begin
  pRec := Liste.Items[Nr];
  dispose(pRec);
  Liste.delete(Nr);
end;

// Sichert die Datensätz ein der angegeben Datei
// Keine Sicherheitsabfrage, ob Überschrieben J/N
procedure   CArtikelerfassung.Save(szDatei:string);
var kanal:file of TArtikelerfassungRec;
var pRec:PArtikelerfassungRec;
    i:integer;
begin
  assign(kanal,szDatei);
  rewrite(kanal);
  for i:=0 to Liste.Count-1 do
  begin
    pRec := Liste.Items[i];
    write(kanal,pRec^);
  end;
  closefile(kanal);
end;

// Lädt die Datensätz
procedure   CArtikelerfassung.Load(szDatei:string);
var kanal:file of TArtikelerfassungRec;
var Rec:TArtikelerfassungRec;
begin
  clear;  // Die Daten werden auf jedenfall gelöscht
  if FileExists(szDatei) then
  begin
    assign(kanal,szDatei);
    reset(kanal);
    while not eof(kanal) do
    begin
      read(kanal,Rec);
      add(Rec);
    end;
    closefile(kanal);
  end
  else
  begin
//    Meldung('Fehler','Die angegebene Datei ist nicht vorhanden'+NL+szdatei);
  end;
end;

// Zeigt die Datensätze in einem externen Grid für das Objekt(Tabelle) an
procedure   CArtikelerfassung.Show(ArtikelGrid:TStringGrid);
var i:integer;
    pRec:pArtikelerfassungRec;
begin
  if Liste.Count = 0 then
  begin
    ArtikelGrid.RowCount := 2;
    ArtikelGrid.cells[0,1] := '-';
    ArtikelGrid.cells[1,1] := '-';
    ArtikelGrid.cells[2,1] := '-';
    ArtikelGrid.cells[3,1] := '-';
    ArtikelGrid.cells[4,1] := '-';
  end
  else
  begin
    ArtikelGrid.RowCount := Liste.Count+1;
    for i:=0 to Liste.Count-1 do
    begin
      pRec := Liste.Items[i];
      ArtikelGrid.cells[0,i+1] := IntToStr(i+1);
      ArtikelGrid.cells[1,i+1] := pRec.AbteilungName;
      ArtikelGrid.cells[2,i+1] := pRec.AbteilungNr;
      ArtikelGrid.cells[3,i+1] := pRec.Artikel;
      ArtikelGrid.cells[4,i+1] := pRec.ArtikelWert;
    end;
  end;
end;

// Procedure dient zur Initialisierung
procedure InitArtikelerfassungRec(var Rec:TArtikelerfassungRec);  // ohne
begin
  with Rec do
  begin
    AbteilungName:='';
    AbteilungNr:='';
    Artikel:='';
    ArtikelWert:='';
  end;
end;

end.

[hoika]

Hallo,

Was ist denn so schwierig, einen Breakpoint drauf zu setzen
und es debuggen zu debuggen ?.

Ausserdem kann ich mir nicth vorstellen,
dass dein Code überhaupt kompiliert wird

Delphi-Quellcode:

var
  prec: pArtikelerfassungRec;

pRec := Liste.Items[i];
ArtikelGrid.cells[0,i+1] := IntToStr(i+1);
ArtikelGrid.cells[1,i+1] := pRec.AbteilungName;

Statt pRec.AbteilungName muesste es heissen pRec^.AbteilungName;


Nur !!!
Warum nimmst du überhaupt Pointer ?
TList funktioniert wunderbar mit ganz normalen Klassen.
Lass den ganzen Record-"Quatsch" weg.


Heiko

[Kunoishi]

ich sitze da seit 14 Tagen drann und versuche in der suppe das Haar zu finden.
in der schule hört sich das alles so einfach an.
und langsam kocht mir die platte.
wenn ich das jetzt noch in umschreiben soll bin ich bis Mi. doch nie fertig.

ich versuche das mal zu hinterlegen als datei bei euch.
ich sehe den fehler nicht.

[youuu]

Was genau willst du denn machen? Lediglich aus einen Edit Feld die Eingabe in einem StringGrid anzeigen oder soll es mehr tun?

[Kunoishi]

erstmal nur anzeigen und dann nach allen eingaben 4 oder 5 Datensatz oder 10 das ganze in der dat.-Datei speichern