Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Fehlermeldung bei Stringgrid (https://www.delphipraxis.net/132692-fehlermeldung-bei-stringgrid.html)

delphi-projekt 17. Apr 2009 17:00


Fehlermeldung bei Stringgrid
 
Hallo,

wenn ich eine Stringgrid habe und ich möchte allerdings eine Fehlermeldung haben wenn z.B. keine Werte in der ersten Zeile sind wie mache ich das?

Zum Aufbau:

ich habe eine Stringgrid mit 2 Spalten ('Zeit' und 'Richtung') sind schon vordefiniert und
stehen immer darin.

Die Eingabe ('Zeit' und 'Richtung') sind in der Zeile 0, alle weiteren eingetragenen Werte werden nun also ab Zeile 1 Eingegeben.

Also wie geht es, dass ich bei nichteingabe von Werten ab Zeile 1 eine Fehlermeldung bekomme?

mkinzler 17. Apr 2009 17:03

Re: Fehlermeldung bei Stringgrid
 
Wo gibst du ein? Ins Grid?

Mithrandir 17. Apr 2009 17:06

Re: Fehlermeldung bei Stringgrid
 
Zitat:

Zitat von delphi-projekt
Also wie geht es, dass ich bei nichteingabe von Werten ab Zeile 1 eine Fehlermeldung bekomme?

Du wirst wohl in deiner Routine, die die Daten verarbeitet, prüfen müssen, ob das Feld leer ist. Ein Ansatzpunkt wäre da Delphi-Referenz durchsuchenCells

delphi-projekt 17. Apr 2009 17:13

Re: Fehlermeldung bei Stringgrid
 
Also wir stellen uns das so vor

Delphi-Quellcode:
if stringgrid1.Cells[0,1]=''
then
showmessage ('Bitte Werte eingeben')
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

DeddyH 17. Apr 2009 17:17

Re: Fehlermeldung bei Stringgrid
 
Dann macht das doch auch so ;)

Hobby-Programmierer 17. Apr 2009 18:04

Re: Fehlermeldung bei Stringgrid
 
Zitat:

Zitat von delphi-projekt
... Also wie geht es, dass ich bei nichteingabe von Werten ab Zeile 1 eine Fehlermeldung bekomme?

Ich würde bereits bei der Zeicheneingabe auf Fehlerfreiheit prüfen, vielleicht so:
Delphi-Quellcode:
procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);
begin
  if Value = '' then //(Sender as TStringGrid).Cells[ACol, ARow] = ''
    ShowMessage('ungültige Eingabe');
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz