Hallo,
ich habe bisher unter D2007 folgenden Code problemlos eingesetzt:
Delphi-Quellcode:
procedure DatumInMemo(datum:String);
var
sl : TStringList;
begin
.....(hier wird kdname und tourtxt ermittelt)...
for i := 0 to sl.Count - 1 do
begin
sldatum:=copy(sl.ValueFromIndex[i],3,10);
if (sldatum=datum) then
begin
Memo1.Lines.Add(kdname+': '+tourtxt);
end;
end;
end;
In der StringList sind definitiv 1202 Zeilen in folgender Form:
FR 06.02.2009 14:00 - 06.02.2009 15:45
FR 06.11.2009 14:00 - 06.11.2009 15:45
FR 13.11.2009 14:00 - 13.11.2009 15:45
Wie oben ersichtlich, möchte ich nun das erste Datum der jeweiligen Zeile in der
StringList (deshalb der copy-Befehl) mit einem vorgegebenem Datum vergleiche, wenn
das dann gleich ist, werden bestimmt Variablen in ein Memofeld geschrieben.
So weit so gut - unter D2007 läuft das völig problemlos! Wenn ich die selbe Routine
unter Delphi XE (NICHT XE2!) kompiliere, dann gibt es zwar keine Fehlermeldung...ABER
auch keine Einträge in dem Memofeld mehr. Wenn ich mir mit einem showmessage die
Variable sldatum anschaue, kommt da nix mehr an...
Hat da jemand eine Idee????
Hartmut