String zerlegen

[value is NULL]

Hi Delphianer

Ich weiß ich bin lästig, aber ich bin erst seit kurzem dabei mich mit delphi zu beschäftigen ...

ich habe einen String der so aussieht:

zB 20100917

das ganze muss ich in 3 Teile stückeln (Tag, Monat, Jahr)
mit LeftStr und Right Str bekomme ich ja wunderschön das Jahr
und den Tag

ich weiß aber nicht wie ich das Monat bekomme...

Könnt ihr mir da helfen?

DANKE im voraus!

[Satty67]

Wenn der String immer gleich aussieht, schau dir mal die Funktion Copy an. Damit kann man etwas aus der String-Mitte schneiden

[plusplus]

z.b

a := copy('zb 20101218', 0, Pos(' ', 'zb 20101218') -1);
y := copy('zb 20101218', Pos(' ', 'zb 20101218') +1, 4);

a would be = 'zb';
y would be = '2010';

etc.

[HeikoAdams]

Wenn der String immer identisch aufgebaut ist, kann Du auch folgenden Code verwenden:

Delphi-Quellcode:

a := Copy('20101218', 0, 4);
b := Copy('20101218', 4, 4);
c := Copy('20101218', 8, 2);

etwas eleganter:

Delphi-Quellcode:

sString := '20101218';

a := Copy(sString, 0, 4);
b := Copy(sString, 4, 4);
c := Copy(sString, 8, 2);

[Bummi]

Wobei COPY nicht 0 sondern 1 basiert ist....

[HeikoAdams]

Zitat von Bummi:

Wobei COPY nicht 0 sondern 1 basiert ist....

Quatsch! Die erste Position in einem String ist Position 0 und wenn ich von Anfang an etwas aus dem String kopieren will, muss ich mit 0 anfangen

[Bernhard Geyer]

Euch sollte schon klar sein das "zb" "zum Beispiel" bedeutet.
Der String ist

20100917

Ansonsten würde ja wohl die Funktion LeftStr nicht das Jahr liefern.

[Wolfgang Mix]

Delphi-Quellcode:

datum:=20100917
jahr:=copy(datum,1,4));
monat:=copy(datum,5,2));
tag:=copy(datum(7,2));

Kopiere ab Zeichen x Zeichen