String links und rechts abschneiden !!!

[HolgerCW]

Hallo zusammen,

mit welchem Befehl kann ich die 6 linken Zeichen eines Strings 'herausschneiden'
und mit welchem Befehl die 6 rechten Zeichen eines Strings ?

Gruss und schon mal danke

Holger

[Tormentor32]

delete(mystring,1,6)
und
delete(mystring,length(mystring)-6,6)

[SirThornberry]

oder einfach ein einziges mal copy aufrufen

[HolgerCW]

Hallo,

danke für die schnelle Antwort,

aber so gehts nicht:

Delphi-Quellcode:

var 
 Wert: Srting;

Wert: =delete(mystring,1,6)

Wie muss ich das umwandeln ?

Gruss

Holger

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]

[Daniel]

Delete hat einen VAR-Parameter für den String, das heißt, dass das Ergebnis direkt in die übergebene Variable MyString zurückgeschrieben wird.


P.S.: Und für die Zukunft: Drei Ausrufezeichen am Ende des Beitragstitels sind gar nicht nötig, ich komme mir dann stets leicht angebrüllt vor. ;-)

[HolgerCW]

Hallo,

ich habe es. Delete gegen Copy austauschen und es funzt

Danke

Holger

[oschulz]

Shau dir auch AnsiMidStr an.

AnsiMidStr(mystring, 7, length(mystring)-7) <- ungetestet :wink:

[Eichhoernchen]

wie wärs denn mit:

Delphi-Quellcode:

var s: string;
begin
s := '6543210123456';
//...
s := copy(s, 7, length(s)-12);

//...
end;

[SirThornberry]

Zitat:

Zitat von oschulz

Shau dir auch AnsiMidStr an.

AnsiMidStr(mystring, 7, length(mystring)-7) <- ungetestet :wink:

Und was macht das anderes als "copy"? Zudem ist das falsch gedacht. Wenn du 6 Zeischen hinter dem Anfang anfängst sollte die Anzahl der Zeischen größer der Länge des Strings mit 7 sein

[oschulz]

Zitat:

Zitat von SirThornberry

Zitat:

Zitat von oschulz

Shau dir auch AnsiMidStr an.

AnsiMidStr(mystring, 7, length(mystring)-7) <- ungetestet :wink:

Und was macht das anderes als "copy"? Zudem ist das falsch gedacht. Wenn du 6 Zeischen hinter dem Anfang anfängst sollte die Anzahl der Zeischen größer der Länge des Strings mit 7 sein

Ich hab nie behauptet, das es was anderes macht als copy :angel2:. Falsch mag es sein, deshalb auch "ungetestet".
Also hier nochmal richtig ;)

Delphi-Quellcode:

AnsiMidStr(mystring, 7, length(mystring)-12) //12 sind die 6 vom Anfang + die 6 vom Ende