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....

[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.

[HeikoAdams]

Zitat:

Zitat von Bummi (Beitrag 1054264)

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 8-)

[Neutral General]

Zitat:

Zitat von HeikoAdams (Beitrag 1054266)

Zitat:

Zitat von Bummi (Beitrag 1054264)

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 8-)

Quatsch. Strings beginnen bei 1.

[stahli]

Nicht Quatsch: Copy geht ab 1 los (genau wie Pos)

[HeikoAdams]

Zitat:

Zitat von Neutral General (Beitrag 1054267)

Zitat:

Zitat von HeikoAdams (Beitrag 1054266)

Zitat:

Zitat von Bummi (Beitrag 1054264)

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 8-)

Quatsch. Strings beginnen bei 1.

Und warum liefert mir dann

Delphi-Quellcode:

Copy('abcd', 0, 1)

als Ergebnis 'a'?