AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Mit Multiselect ALLE Datensätze markieren

Mit Multiselect ALLE Datensätze markieren

Ein Thema von egon.kaschuba · begonnen am 21. Jul 2008 · letzter Beitrag vom 22. Jul 2008
Antwort Antwort
egon.kaschuba

Registriert seit: 2. Jun 2006
Ort: Buxtehude
80 Beiträge
 
Delphi 7 Architect
 
#1

Mit Multiselect ALLE Datensätze markieren

  Alt 21. Jul 2008, 18:05


Hallo,

da habe ich nochmal eine Frage ?

Ich möchte aus dem DBGrid mit Multiselect alle
Datensätze auf einmal markieren.

Mit dem untere Code muss man jeden einzelnen Satz anklicken,
das ist lästig.

Wer kann mir einen Tip geben?

Gruß
- Egon



if (TagesGrid.SelectedRows.Count > 0) then
begin
with TagesGrid.DataSource.DataSet do
for l := 0 to TagesGrid.SelectedRows.Count - 1 do
begin
GotoBookmark(Pointer(TagesGrid.SelectedRows.Items[l]));
Table10.Edit;
VBeleg:=Table10.FieldbyName('BELEG').AsString ;
Table10['BELEG']:='Wurde schon Gebucht';
Table10.Post;table10.Refresh;
end;
TagesGrid.SelectedRows.Clear;
end ;
Glück ist das einzige was sich verdoppelt,wenn man es teilt.
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Mit Multiselect ALLE Datensätze markieren

  Alt 21. Jul 2008, 18:14
Das Standardverhalten wäre:
Erste Reihe anklicken, Shift+Letze Reihe anklicken. Keine Ahnung, ob das DBGrid das kann...
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
egon.kaschuba

Registriert seit: 2. Jun 2006
Ort: Buxtehude
80 Beiträge
 
Delphi 7 Architect
 
#3

Re: Mit Multiselect ALLE Datensätze markieren

  Alt 21. Jul 2008, 19:30
Hi,

Alzaimar,nee habe ich auch schon dran Gedacht.
Geht aber nicht.
Glück ist das einzige was sich verdoppelt,wenn man es teilt.
  Mit Zitat antworten Zitat
Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Mit Multiselect ALLE Datensätze markieren

  Alt 21. Jul 2008, 19:36
Hallo ,

schau mal hier--->invertrow..musste nur umdrehen...Vielleicht hilfts ja.
Gruss Kaki

Repeat Until true=false;
  Mit Zitat antworten Zitat
ConstantGardener

Registriert seit: 24. Jan 2006
Ort: Halberstadt
375 Beiträge
 
Delphi 10.4 Sydney
 
#5

Re: Mit Multiselect ALLE Datensätze markieren

  Alt 21. Jul 2008, 20:24
Hallo egon.kaschuba,

folgender Code selektiert alle Zeilen des Grids

Delphi-Quellcode:
 with Query_Namen do
  begin
   DisableControls;
   First;
   While not EOF do
    begin
     DBGrid_Namen.SelectedRows.CurrentRowSelected:=true;
     next;
    end;
   First;
   EnableControls;
  end;
mfg

ConstantGardener
Andreas Schachtner
  Mit Zitat antworten Zitat
egon.kaschuba

Registriert seit: 2. Jun 2006
Ort: Buxtehude
80 Beiträge
 
Delphi 7 Architect
 
#6

Re: Mit Multiselect ALLE Datensätze markieren

  Alt 21. Jul 2008, 22:26


Hallo ConstantGardener

Hab mal bei SwissDelphiCenter.ch
gegoogelt und habe das gefunden.

Klappt prima.

Trotzdem Danke.

Gruß
-Egon


function GridSelectAll(Grid: TDBGrid): Longint;
begin
Result := 0;
Grid.SelectedRows.Clear;
with Grid.DataSource.DataSet do
begin
First;
DisableControls;
try
while not EOF do
begin
Grid.SelectedRows.CurrentRowSelected := True;
Inc(Result);
Next;
end;
finally
EnableControls;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GridSelectAll(DBGrid1);
end;
Glück ist das einzige was sich verdoppelt,wenn man es teilt.
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#7

Re: Mit Multiselect ALLE Datensätze markieren

  Alt 22. Jul 2008, 09:18
Entspricht so ziemlich genau dem Code von ConstantGardener.

Verwende doch die Delphi-Tags in Zukunft. Dazu einfach den Code markieren, und auf den 'Delphi-Code' Button drücken.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
ConstantGardener

Registriert seit: 24. Jan 2006
Ort: Halberstadt
375 Beiträge
 
Delphi 10.4 Sydney
 
#8

Re: Mit Multiselect ALLE Datensätze markieren

  Alt 22. Jul 2008, 13:49
@Egon : da nich für...

@alzaimar : 8)

Grüsse ConstantGardener
Andreas Schachtner
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz