Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Datum mit Datum austauschen (https://www.delphipraxis.net/112055-datum-mit-datum-austauschen.html)

aaron 14. Apr 2008 15:22


Datum mit Datum austauschen
 
Hallo liebes Forum
Ich habe in einer Spalte im Stringgrid ein Datum stehen, rechts neben dieser Spalte in einer zweiten habe ich ein TDatetimepicker.
Kann man mittels Stringreplace das alte Datum mit dem neuen Datum im TDatetimepicker austauschen?

Grüße
Aaron

SirThornberry 14. Apr 2008 15:26

Re: Datum mit Datum austauschen
 
nein, mit stringreplace kannst du kein TDateTime ersetzen.

mkinzler 14. Apr 2008 15:26

Re: Datum mit Datum austauschen
 
Du kannst doch die Zelle direkt ansteuern

hoika 14. Apr 2008 15:30

Re: Datum mit Datum austauschen
 
Hallo,

iCol,iRow sind die Grid-Zelle mit dem Datum

Delphi-Quellcode:
Grid.Cells[iCol,iRow]:= FormatDateTime('dd.mm.yyyy', DateTimePicker.Date);

Heiko

aaron 14. Apr 2008 15:34

Re: Datum mit Datum austauschen
 
Sorry, hatte vergessen zu sagen dass in der gleichen Spalte in der das Datum steht sich auch noch Text befindet.
In etwa so:
Wurde getestet am 12.11.2007, getest wurde nicht usw.
Und dieses Datum soll dann durch das Datum was im TDatetimePicker ausgetauscht werden.
Gruß
Aaron

mkinzler 14. Apr 2008 15:37

Re: Datum mit Datum austauschen
 
Du kannst obigen Code dementsprechend anpassen.

hoika 14. Apr 2008 15:46

Re: Datum mit Datum austauschen
 
Hallo,

der Text sollte intern ohne das Datum (nur als Platzhalter)
gespeichert sein. Das Datum wird extra gespeichert.
Beim Füllen des StringGrids wird dann der Text zusammengebaut.

Willst du den Text komplett mit Datum speichern,
und dann das Datum ersetzen ?
Viel Spass beim Rum-Pfriemeln.

Ein Ansatz wäre das Aufsplitten des Textes über eine StringList
(Separator wäre das Leerzeichen) und das Prüfen der einzelnen Strings
per TryStrToDate (Jedi ?)
oder die TryStrToDate selberbauen per
Delphi-Quellcode:
try
  StrToDate();
except
end;
order per Val

Dann kann dieser Datums-String ersetzt werden
und per StringList.Text hats du wieder deinen Satz.

Heiko

aaron 14. Apr 2008 16:01

Re: Datum mit Datum austauschen
 
Hallo...
also ich habe es so gemacht:
Delphi-Quellcode:
 Stringgrid1.Cells[1, i]:= FormatDateTime('dd.mm.yyyy', Stringgrid1.DateTimePicker.Date);
aber irgendwie werden nun alle Zeilen ersetzt.
Früher habe ich immer das Wort Datum durch das DateTimePickerdatum ersetzt.
Delphi-Quellcode:
Stringgrid1.Cells[1, i] := StringReplace(Stringgrid1.Cells[1, i],'Datum',Stringgrid1.Cells[2, i],[rfReplaceAll, rfIgnoreCase]);
Das ist aber zu umständlich, hat aber funktioniert.

Freundliche Grüße
Aaron

aaron 14. Apr 2008 16:04

Re: Datum mit Datum austauschen
 
Zitat:

Willst du den Text komplett mit Datum speichern,
und dann das Datum ersetzen ?
Ja.
Freundliche Grüße
Aaron

aaron 15. Apr 2008 12:27

Re: Datum mit Datum austauschen
 
Zitat:

Zitat von hoika
Hallo,
Ein Ansatz wäre das Aufsplitten des Textes über eine StringList
(Separator wäre das Leerzeichen) und das Prüfen der einzelnen Strings
per TryStrToDate (Jedi ?)
oder die TryStrToDate selberbauen per
Delphi-Quellcode:
try
  StrToDate();
except
end;
order per Val

Dann kann dieser Datums-String ersetzt werden
und per StringList.Text hats du wieder deinen Satz.

Hallo Heiko,
das mit dem austauschen habe ich verstanden nur wie muss ich das mit den Leerzeichen machen?
Ich meine das Auslesen des Datums?

Grüße
Aaron


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:24 Uhr.
Seite 1 von 3  1 23      

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 by Thomas Breitkreuz