Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
Nachdem ich das Ganze in ein eigenständiges Projekt verpflanzt habe, alle Indizes angeglichen habe kommt folgendes bei raus:
implementation
{$R *.dfm}
procedure TForm1.OffnenClick(Sender: TObject);
begin
JvSG1.LoadFromCsv('epatest.txt',#9);
Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
Die Spalte Cells sollte die Ergebnisspalte der Addition der Spalte 9 sein. Nach der obigen Aussage also (RowCount-1)+1 ???
Um diesen HickHack zu entgehen habe ich ja die Summierung in eine andere Prozedur geschrieben. Aber damit summiert ja nichts!
Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
Bei JvSG1.Cells knallt nichts. Die Spalte wird bis RowCount-1 ausgefüllt. Damit es bei der Summierung der Spalte 9 nichts passiert, hatte ich das ganze in eine zweite Prozedur ausgelagert (was ja offenbar nicht funktioniert).
Summe := Summe + StrToInt(JvSG1.Cells);
JvSG1.Cells := IntToStr(Summe);
Hier muß der Fehler sein. Und das begreife ich nicht. Er beendet die Summierung...
Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
Neuer Quelltext:
procedure TForm1.PlusMinusGrafik2(Sender: TObject);
var
i,Summe :integer; k,l:Real;
begin
Summe := 100;
//JvSG1.InsertCol(9);
JvSG1.Cells := '00';
Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
Also die PlusMinus Prozedur funktioniert einwandfrei von der ersten bis zur letzten Zeile stehe Nullen plusEinsen oder MinusEinsen drin.
Die SummenProzedur hat den Startwert Summe= 100, und darauf sollen die Nullen usw. addiert werden Summe := Summe + InttoStr(Cell).
Als Ergebnis soll in Cell jeweils die Neue Summe stehen.
JvSG1.Cells := '00' soll nur als Füllzeichen stehen, kann auch...
Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
Bei beiden korrekt??
Was meinst du??
Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
@DeddyH
Natürlich 11te Spalte.
Dennoch zeigt IndexSpalte 10 nichts an.
Trennung zwischen Logik und Anzeige ist für mein winziges Programm vielleicht nicht nötig.
Es interessiert mich dennoch. Im Anschluß an die Lösung dieses Problems, werde ich das ganze nochmals überdenken.
Forum: Object-Pascal / Delphi-Language
by fl63,
25. Jun 2011
Hallo
Ich habe folgendes Problem:
procedure TForm1.PlusMinus(Sender: TObject);
var
i :integer; k,l:Real;
begin