Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
11. Mai 2003
Hallo,
zum Thema Spalten sortieren und Zeilen aus deinem Grid löschen empfehle ich dir einen Blick auf folgendes :
Class: TSortGrid Copyright © 1996 Author: Bill Menees
bmenees@usit.net, www.public.usit.net/bmenees
Gruß Neo
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
10. Mai 2003
Hallo,
ich hab meine einfügungen mit //neu markiert :
procedure TFormHaupt.Oeffnen1Click(Sender: TObject);
var
F: TStringList;
i: Integer;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
10. Mai 2003
Hi,
dein Fehler beim öffnen rührt daher, das du den begin/end-Block vergessen hast. Wenn du den Quelltext einrücken würdest, hättest du das sicherlich bemerkt ...
Ansonsten sieht das doch gar nicht so schlecht aus.
Achso, wenn man den Quelltext im Programm (lustig :bounce2: ) auch markieren könnte und kopieren, hätte ich die hier auch die Stelle mit dem Fehler zeigen können, aber so mußt...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
10. Mai 2003
Hi, freut mich ...
Bekommen wir hier deine "Hausaufgabe" zu gesicht, wenn sie fertig ist ???
Gruß Neo
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
10. Mai 2003
Hi,
stell Grid1.RowCount beim leeren auf 2, dann hast du eine leere Zeile die der Anwender bearbeiten kann. Wenn du Rowcount auf 1 stellst, wird die Eigenschaft FixedRows auf 0 gesetzt, daher rührt dein Probelm.
Ansonsten hilft dir sicherlich folgendes :
if Grid1.Row>0 then //Edit oder Insert oder was weis ich
Gruß Neo
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
10. Mai 2003
Hi,
um die Zeilen aus dem grid zu entfernen :
Grid.RowCount=1;
Vorher solltest du aber die Zellen wirklich mit einem leeren String überscheiben (machst du ja schon), denn das Grid entfernt die Zeilen nicht wirklich und sonst würdest du bei einem neuen Eintrag wieder den alten Kram sehen.
Im übrigen kann ich mich der Meinung von WOKI nur anschliessen.
So was hat man in 5 Minuten...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
10. Mai 2003
Hallo,
für was braust du "Anzahl".
Die Anzahl der Zeilen im Grid kannst du mit Grid.RowCount ermitteln.
Code für neue Zeile :
// Zeile hinzugügen
grid.RowCount :=Grid.RowCount+1;
// neue Zeile füllen
grid.cells:= EditName.Text;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
9. Mai 2003
Hi,
StringGrid1.Rows ist dein Freund ;-)
Um eine Zeile erweitern :
StringGrid1.Rows :=StringGrid1.Rows+1;
auf letzte Zeile stellen :
StringGrid1.Row :=StringGrid1.Rows-1;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
9. Mai 2003
Hallo,
kehr meine Funktion einfach un :
Stringgrid1.Rows.Strings; :=edit1.text;
Stringgrid1.Row bezeichnet immer die markierte Zeile.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
9. Mai 2003
Hi,
das wirst du wohl gar nicht können, da du deine Edit-Felder nicht in einem Array hast..
Die Spalten sind ja nicht das Problem, die kannst du ja in einer for-Schleife durchlaufen.
Einzige möglichkeit währe die Edit-Felder dynamisch zu generieren und dann Pointer auf die Edits in einem Array zu verwalten.
Gruß Neo
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Neo2084,
9. Mai 2003
Hi,
wie währe es denn damit ???
// Holt die Daten aus der 2. !!! Spalte des Stringgrids in der ausgewälten
// Reiche in das Edit
edit1.text :=Stringgrid1.Rows.Strings;
ungetestet ..., sollte aber so gehen