StrinGrid (goRowSelect) zelleneintrag in ein form laden

[dopeline]

Ich habe eine Tabelle, die nur Zeilenweise markiert werden kann. in einem anderen formular werden daten in edit-felder eingetrage und in die tabelle auf dem mainform übertragen. für jeden eintrag schreibt er eine neue zeile. wenn man einen bestehenden eintrag auf rechtsklick(popup-menu) "Eintrag bearbeiten" klickt, soll das eingabe-formular wieder aufgerufen werden und dort wieder die entsprchenden daten der angeklickten zeile wieder in die edit-felder geschrieben werden. hintergrund ist, die bereits erstellten einträge zu ändern und wieder in die tabelle zu übernehmen.

uff

http://people.freenet.de/dopeline/Tabelle.jpg

Irgentwelche vorschläge?

Grüße, dopeline

[Neo2084]

Hi,

wie währe es denn damit ???

Code:

// Holt die Daten aus der 2. !!! Spalte des Stringgrids in der ausgewälten
// Reiche in das Edit
edit1.text :=Stringgrid1.Rows[Stringgrid1.Row].Strings[1];

ungetestet ..., sollte aber so gehen

Gruß Neo

PS: Mit 17 Delphi 7.0 Enterprise.... Ihr seid bestimmt ganz schlimm reich :lol:

[dopeline]

das funktioniert schon mal! wenn ich die erste zeile markiere und auf den button klicke, steht in dem editfeld der string (zeile 1 spalte 2)

aber wie veralgemeinere ich das (das es mit allen spalten (und allen editfelder(es sind mehrere>> name, adresse, telefon...) klappt)?

[dopeline]

hat sich schon erledigt! hab es gefunden:

Code:

FormNeuerEintrag.EditName.Text :=Stringgrid1.Rows[Stringgrid1.Row].Strings[0];
FormNeuerEintrag.EditTelefon.Text :=Stringgrid1.Rows[Stringgrid1.Row].Strings[1];
FormNeuerEintrag.EditAdresse.Text :=Stringgrid1.Rows[Stringgrid1.Row].Strings[2];
FormNeuerEintrag.EditMobil.Text :=Stringgrid1.Rows[Stringgrid1.Row].Strings[3];
FormNeuerEintrag.EditMail.Text :=Stringgrid1.Rows[Stringgrid1.Row].Strings[4];

Trotzdem DANKE!!!

Gruß, dopeline :dancer:

[dopeline]

achso, da ist aber noch eine sache:
wenn ich das bearbeiten-fenster öffne, den eintrag bearbeie und wieder abspeichere, denkt er es sei ein neuer eintrag und erstellt auch einen neuen(neue zeile in der tabelle) :(

[Neo2084]

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

[Neo2084]

Hallo,


kehr meine Funktion einfach un :

Delphi-Quellcode:

Stringgrid1.Rows[Stringgrid1.Row].Strings[1]; :=edit1.text;

Stringgrid1.Row bezeichnet immer die markierte Zeile.

Gruß Neo

[dopeline]

ja letzteres funktioniert! jetzt noch eine sache:

gibt es eine möglichkeit abzufragen, wiewiele zeilen der tabelle belegt sind?

denn wenn ich eine datei lade, und einen eintrag erstelle, fängt er ganz ober an und ersetzt den schon bestehenden in zeile 1. doch eigentlich sollte er gucken "wielviele zeilen sind schon belegt? >> also ist der nächste eintrag zeile:=zeile+1"
(iah hab die variable eingesetzt, dass er bei jedem eintrag eine zeile weiter springt)

[Neo2084]

Hi,

StringGrid1.Rows ist dein Freund ;-)

Um eine Zeile erweitern :
StringGrid1.Rows :=StringGrid1.Rows+1;

auf letzte Zeile stellen :

StringGrid1.Row :=StringGrid1.Rows-1;


Gruß Neo

[Marco Haffner]

Wie jetzt belegt? Nicht leere Zeilen oder was?
Mit RowCount kannst Du jedenfalls die Anzahl der Zeilen abrufen.
Um auf die letzte Zeile des StringGrids zuzugreifen nimmst Du dann

Delphi-Quellcode:

StringGrid1.RowCount - 1

.