Strings in Stringgrid Spalten mit Währung Formatieren

[DeddyH]

Delphi-Quellcode:

uses ..., Contnrs;

...

DeineListe := TObjectList.Create;

Die Liste hat einen Konstruktor-Parameter namens OwnsObjects mit Standardwert true. Ist dieser gesetzt, gibt die Liste die enthaltenen Objekte automatisch frei, sobald diese aus ihr entfernt werden.

[Natcree]

Delphi-Quellcode:

   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         Irgendwas.Free;
       end;

Was haben denn die letzten code zeilen zu sagen???

[mkinzler]

Zitat von Natcree:

Delphi-Quellcode:

   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         Irgendwas.Free;
       end;

Was haben denn die letzten code zeilen zu sagen???

Ist ein Exception-Handler, wenn ein Fehler auftritt wird dieser abgefangen

Mit Grundlagenwissen ist bei dir aber auch nicht weit her.

[Natcree]

okay wie bekomme ich meine daten wieder Ausgegeben???

Habe die Eingabe jetzt so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
   deineliste: Tirgendwas;
 begin
   Deineliste := Tirgendwas.Create;
   try
     deineListe.ErsteZahlAsString := edit1.Text;
     deineliste.ZweiteZahlAsString := edit2.Text;
     deineliste.Add(deineliste);
   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         deineliste.Free;
       end;
   end;
 end;

[DeddyH]

Die Liste muss vom Typ TObjectList sein, die hinzuzufügenden Objekte vom Typ TIrgendwas (oder wie Du die Klasse auch immer nennen willst).

[edit] Und Du gibst die Liste nur im Fehlerfall frei, das kann ja auch nicht richtig sein. [/edit]

[Natcree]

Okay habs mal umgeschrieben

Delphi-Quellcode:

type
   Tirgendwas = class(tobjectlist)
....
procedure TForm1.Button1Click(Sender: TObject);
 var
   irgendwas: Tirgendwas;
 begin
   irgendwas := Tirgendwas.Create;
   try
     irgendwas.ErsteZahlAsString := edit1.Text;
     irgendwas.ZweiteZahlAsString := edit2.Text;
     irgendwas.Add(irgendwas);
   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         irgendwas.Free;
       end;
   end;
 end;

Die wiedergabe möchte ich so machen kommt aber nur 0,00 raus

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   irgendwas: Tirgendwas;
begin
edit3.text := irgendwas.ErsteZahlAsString;
end;

[mkinzler]

Solange irgendwas eine lokale Vaiable ist, funktioniert das nur in der Methode, in der du es deklariert hast. Die gleichnamige Variable in der anderen Methode ist eine andere lokale Variable. Du musst diese Global oder besser als Attribut der Klasse anblegen.

[Natcree]

Das heist es geht nur so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
   irgendwas: Tirgendwas;
 begin
   irgendwas := Tirgendwas.Create;
   try
     irgendwas.ErsteZahlAsString := edit1.Text;
     irgendwas.Add(irgendwas);
     edit3.text := irgendwas.ErsteZahlAsString;<-------------
   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         irgendwas.Free;
       end;
   end;
 end;

dann wir dauch alles richtig ausgegeben. Gut soweit erstmal

jetzt muss ich nur noch die Stringrid.cells (Spalten und berechnungen eingeben) Richtig???

[mkinzler]

Nein.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
   irgendwas: Tirgendwas;

ist lokal!!!!!!

Du solltestest dich wirklich mit den Grundlagen befassen.

[Natcree]

wie komme ich an diese ran?