StringGrid durchsuchen

[Adenos]

ich möchte die Spalte eines StringGrids nach einem bestimmten Eintrag durchsuchen und ihn, falls er noch nicht vorhanden sein sollte, in die nächste freie Reihe eintragen.

[h-elsner]

Ich würde das so machen:

Code: Alles auswählen

function GridSuche(grid: TStringGrid; spalte: integer; wert: string): integer;
                                               {Result: Nummer der Zeile, wo der Wert (jetzt) steht;
                                               -1, wenn Anzahl Spalten/Zeilen nicht passt}
begin
  try
    result:=grid.Cols[spalte].IndexOf(wert);  {Nachsehen, ob der Wert schon drinsteht, wenn ja - siehe result}
    if result<0 then begin                      {nicht gefunden}
      grid.RowCount:=grid.RowCount+1;         {neue Zeile anlegen}
      result:=grid.RowCount-1;
      grid.Cells[spalte, result]:=wert        {und Wert eintragen}
    end;
  except
    result:=-1;
  end;
end;

Mit dem result kannst du dann auch die Zeilenbennung oder Inhalte weiterer Spalten bearbeiten, weil du ja weißt, in welcher zeile dein Treffer steht.

Gruß und schöne Feiertage
HE

[Adenos]

vielen Dank für Deine Mühen. Ich werde das Ganze in eine Procedur packen, weil ich mich mit Funktionen nicht auskenne. Mir kam es hauptsächlich darauf an, wie ich die Reihe mit dem entsprechenden Eintrag finde. Ich will auch keine Reihe anfügen, weil das StringGrid eine feste Anzahl von Reihen hat, und ich für den neuen Eintrag nur die nächste freie Reihe suche.

[theo]

vielen Dank für Deine Mühen. Ich werde das Ganze in eine Procedur packen, weil ich mich mit Funktionen nicht auskenne.

Ein Funktion ist eine Prozedur mit Rückgabewert, welchen man mit "Result" zuweist.
Sonst ist es das Gleiche.

[Adenos]

ja vielen Dank. Vom Prinzip her ist mir das schon bekannt. Aber ich bin so dumm, dass ich es nicht mal fertig bringe, die Funktion zu deklarieren. Mit einer Procedur erhalte ich dann die Reihe auch als Integer.

[theo]

ja vielen Dank. Vom Prinzip her ist mir das schon bekannt. Aber ich bin so dumm, dass ich es nicht mal fertig bringe, die Funktion zu deklarieren.

Vielleicht solltest du die Ressourcen im Netz nutzen?
Gerade "Anfängerfragen" findet man ja meistens irgendwo beantwortet.
Z.B hier:
https://www.delphi-treff.de/object-pasc ... unktionen/
https://de.wikibooks.org/wiki/Programmi ... Funktionen

[h-elsner]

Eigentlich brauchst du da keine function oder procedure.
Du kannst feststellen, ob überhaupt eine leere Zelle zum Eintragen vorhanden ist:

Code: Alles auswählen

zeilennr_leer:=StringGrid1.Cols[spaltennr].IndexOf('');
if zeilennr_leer>0 then  ... 

Du hast damit die Zeilennummer in die du etwas eintragen kannst (ohne Überschrift, mit Suche auch in Überschrift hieße es if zeilenr_leer>=0 then...).
Und du hast damit ja doch eine function benutzt. Warum dann keine eigenen functions nutzen?

Wenn es eine leere Zelle gibt, kannst du nach deinem Wert suchen:

Code: Alles auswählen

zeilennr_wert:=StringGrid1.Cols[spaltennr].IndexOf(wert);
if zeilennr_wert>0 then     //gefunden
   StringGrid1.Cells[spaltennr, zeilennr_leer]:=wert   // in oben gefundene Zeile eintragen 
else ....                                // nicht gefunden

Gruß HE

[Adenos]

kann man in einem StringGrid eine Spalte editierbar machen, während die anderen vom Programm ausgefüllt werden und nicht editierbar sein sollen?

[theo]

kann man in einem StringGrid eine Spalte editierbar machen, während die anderen vom Programm ausgefüllt werden und nicht editierbar sein sollen?

Grundsätzlich editierbar wird es mit der Option(s) "goEditing".
Wenn du einzelne Spalten nicht editierbar machen willst, musst du Columns erstellen und dort ReadOnly auf "true" setzen.

[Adenos]

ich habe in das OnCreateEreignis des Formulars eingegeben:

Code: Alles auswählen

  StringGrid1.Columns.Items[2].ReadOnly := true;

, dann meldet der Compiler den Fehler EListError mit der Meldung List index (2) out of bounds, obwohl mein StringGrid 5 Spalten hat.

[kralle]

Moin,

ich habe in das OnCreateEreignis des Formulars eingegeben:

Code: Alles auswählen

  StringGrid1.Columns.Items[2].ReadOnly := true;

, dann meldet der Compiler den Fehler EListError mit der Meldung List index (2) out of bounds, obwohl mein StringGrid 5 Spalten hat.

Zu dem Zeitpunkt gibt es das Grid noch nicht, und damit auch noch kein Index 2.

Gruß Heiko

[fliegermichl]

Am besten überschreibst du die Procedure TForm.Loaded. Diese wird aufgerufen, nachdem das Formular und alle Komponenten geladen und initialisiert wurden.

[Adenos]

wo finde ich denn die Procedure TForm.Loaded? Ich habe den Befehl mal in das OnShow-Ereignis geschrieben, aber da kommt der gleiche Fehler.

[theo]

Ich glaube, Adenas hat schlicht vergessen, mindestens 3 Columns zu erstellen.
OnCreate sollte nicht das Problem sein.
Ausserdem könnte man das auch bequem im Objektinspektor einstellen, statt im Code.

lazcols.png (71.34 KiB) 1798 mal betrachtet

Im Objektinspektor die TGridColumn auswählen und die Eigenschaft bearbeiten.

lazcols2.png (83.75 KiB) 1797 mal betrachtet

[Adenos]

danke, das hat geholfen.