Forum: Programmieren allgemein
by khh,
1. Jul 2015
falls das Programm im Jahr 2100 noch läuft ist es längst in mein Vermächtnis übergegangen.
Und im aktuellen Fall geht das Datum auch nicht in die Vergangenheit.
Also alles gut ;-)
ich danke euch
Forum: Programmieren allgemein
by khh,
1. Jul 2015
>> Wie wäre es denn mit 01,02..09,10,11..99 ?
das ists, so einfach, oder?
Warum bin ich da nicht selbst drauf gekommen ;-)
ich danke euch
Forum: Programmieren allgemein
by khh,
30. Jun 2015
ach ja die procedure ;-)
procedure FileReplaceString(const FileName, searchstring, replacestring: string);
var
fs: TFileStream;
S: string;
begin
fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
try
Forum: Programmieren allgemein
by khh,
30. Jun 2015
habs gefunden
der Übeltäter ist
FileReplaceString(ziel,#tag1,Tag);
die Platzhalter #tag1 usw. gehen bis #tag31
damit werden bereits bei #tag10 der string #tag1 von #tag10 ersetzt, was bleibt ist die 0 hinter dem Z :-(
Forum: Programmieren allgemein
by khh,
30. Jun 2015
mit
myDate := StrToDate('01/06/15'); // Startdatum
setze ich das Startdatum
in einer Schleife zähle ich die Daten hoch
tag: string;
Forum: Programmieren allgemein
by khh,
30. Jun 2015
@Markus, ich danke dir, aber
XSBuiltIns hab ich bei Lazarus leider auch nicht :-(
Forum: Programmieren allgemein
by khh,
30. Jun 2015
alsoo ich hab jetzt das Beispiel von Popov ausprobiert.
Das funktioniert bis zum 9. des Monats:
2015-06-09T00:00:00Z
am 10. des Monats bekomme ich als Ergebnis :
Forum: Programmieren allgemein
by khh,
30. Jun 2015
sorry, geht bei mir wie immer um Lazarus.
DateToISO8601 gibts dort nicht :-(
Forum: Programmieren allgemein
by khh,
30. Jun 2015
hallo zusammen,
kann mir jemand sagen wie ich zu so einem Datumsformat komme ?
2015-02-01T00:00:00Z
ich danke euch