Datum mit Datum austauschen

[aaron]

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]

nein, mit stringreplace kannst du kein TDateTime ersetzen.

[mkinzler]

Du kannst doch die Zelle direkt ansteuern

[hoika]

Hallo,

iCol,iRow sind die Grid-Zelle mit dem Datum

Delphi-Quellcode:

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

Heiko

[aaron]

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]

Du kannst obigen Code dementsprechend anpassen.

[hoika]

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]

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]

Zitat:

Willst du den Text komplett mit Datum speichern,
und dann das Datum ersetzen ?

Ja.
Freundliche Grüße
Aaron

[aaron]

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