![]() |
AW: datumsformat
@Markus, ich danke dir, aber
XSBuiltIns hab ich bei Lazarus leider auch nicht :-( |
AW: datumsformat
Zitat:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var lDateTime: TDateTime; begin lDateTime := StrToDate('10.06.2015','.'); ShowMessage(FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', lDateTime)); end; Ausgabe: 2015-06-10T00:00:00Z Zitat:
Wo kommen die denn hier bzw. wie und wo werden diese erzeugt? |
AW: datumsformat
mit
Delphi-Quellcode:
setze ich das Startdatum
myDate := StrToDate('01/06/15'); // Startdatum
in einer Schleife zähle ich die Daten hoch tag: string;
Delphi-Quellcode:
EDIT: muss woanders liegen :-(
for i:= 1 to 30 do
begin Tag:= FormatDateTime('yyyy-MM-dd"T"hh:nn:ss"Z"', myDate); myDate := incDay(mydate) ; end; |
AW: datumsformat
Zitat:
|
AW: datumsformat
habs gefunden
der Übeltäter ist
Delphi-Quellcode:
die Platzhalter #tag1 usw. gehen bis #tag31
FileReplaceString(ziel,#tag1,Tag);
damit werden bereits bei #tag10 der string #tag1 von #tag10 ersetzt, was bleibt ist die 0 hinter dem Z :-( wie krieg ich das den anders hin? |
AW: datumsformat
Wie sieht FileReplaceString aus?
|
AW: datumsformat
ach ja die procedure ;-)
Delphi-Quellcode:
edit: ich könnte die Ziffern der Platzhalter vor den String schreiben :-(
procedure FileReplaceString(const FileName, searchstring, replacestring: string);
var fs: TFileStream; S: string; begin fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); try SetLength(S, fs.Size); fs.ReadBuffer(S[1], fs.Size); finally fs.Free; end; S := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]); fs := TFileStream.Create(FileName, fmCreate); try fs.WriteBuffer(S[1], Length(S)); finally fs.Free; end; end; der Lesbarkeit halber wärs mir aber lieber die Platzhalter könnten so bleiben ;-) |
AW: datumsformat
FileReplaceString macht seinen Job richtig, das Problem ist der Platzhalter. Woher soll FileReplaceString nun wissen, dass #tag1 mal für den Tag 1 steht und mal ein Teil von Tag 10 ist.
Hier muss entweder der Platzhalter verändert werden oder der String muss geparst werden. |
AW: datumsformat
Wie rufst du FileReplaceString auf? In einer Schleife von 1 bis 31? Dann vielleicht besser rückwärts.
|
AW: datumsformat
Zitat:
(Da sich die übliche Leseweise an der ersten Ziffer von rechts orientiert muß man halt bei der Leserichtung von links nach rechts ein eintsprechendes Füllzeichen dazu packen) Gruß K-H |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 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 by Thomas Breitkreuz