String kürzen

[Illusion]

Hi DP! :)

Verzweifle gerade daran die ersten 6 Zeichen eines Strings zu entfernen.. Wär super wenn mir hier jemand weiterhelfen könnte!

Entschuldigt bitte falls ich mich da etwas anstelle, bin Neuling!

Grüsse

[xaromz]

Hallo und herzlich Willkommen (auch wenn Du wohl schon seit ein paar Wochen dabei bist),

hier Deine Antwort:

Delphi-Quellcode:

ZielString := Copy(QuellString, 7, MaxInt);

Gruß
xaromz

[Matze]

Hi,

entweder macht du es mit Copy oder Delete.
Delete Löscht die Zeichen aus dem String und Copy kopiert die gewünschten Zeichen in einen neuen String. Näheres zu den Parametern findest du in der Delphi-Hilfe. :)


Edit: Da ich "Delete" erwähne, sende ich meinen Beitrag trotzdem ab. ;)

[bitsetter]

Hi,

so geht es auch:

Delphi-Quellcode:

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
   s: String;
begin
  s:= 'Schornsteinfeger';
  caption:= RightStr(s, Length(s)- 6);
end;

[mkinzler]

Delphi-Quellcode:

s2 := PChar(s) +6;

[marabu]

Moin Markus,

ahnst du was passiert, wenn Length(s1) < 6 ist?

Delphi-Quellcode:

  s2 := PChar(s1) + Min(6, Length(s1));

Aus Gründen der Lesbarkeit (intentional programming) gefällt mir die Lösung von xaromz für den nondestruktiven Fall am Besten. Oder für den destruktiven Fall halt Delete(s, 1, 6) - auch wenn dabei mit Nebeneffekten operiert wird.

Freundliche Grüße

[Illusion]

Wow, super! :-D Gleich soviele Möglichkeiten auf einmal! Hab wohl falsch gegoogelt.. :oops:

Habe mich vor einiger Zeit schon hier angemeldet aber bisher kam ich mit meinem Delphi ganz gut zurecht.. *g*

Danke für eure Hilfe!! Hab mich für Delete entschieden.

LG, Illu

[mkinzler]

[quote="marabu"]Moin Markus,

ahnst du was passiert, wenn Length(s1) < 6 ist?

[quote] Stimmt