String-Länge ändern

[Hellcat]

Moin Leute!

Ich bin mal wieder zu doof meine eigenen Fehler zu finden...
Ich will von einem String die letzten vier Zeichen abschneiden, weiß aber vorher nicht wie lang der String ist. Das müsste doch eigentlich mit folgendem Code zu lösen sein:

Delphi-Quellcode:

HilfeP := SetLength(((Application.MainForm.FindComponent('PlLab' + Inttostr(i)) as TLabel).caption),Lenght - 4);

Nur leider erhalte ich da die Meldung 'Undeclared identifier: 'Lenght''...

[flow]

Versuchs damit:

Delphi-Quellcode:

sMyString := (Application.MainForm.FindComponent('PlLab' + Inttostr(i)) as TLabel.caption);
Delete(sMyString,Length(s)-4,4);

Müßte so klappen!

FLOW

[mika]

Hallo

du hast n Rechtschreibfehler, Length schreibt man mit "th" nicht mit
"ht" und ausserdem müsste das glaube ich so aussehen:

Delphi-Quellcode:

HilfeP := SetLength(((Application.MainForm.FindComponent('PlLab' + Inttostr(i)) as TLabel).caption),Lenght((Application.MainForm.FindComponent('PlLab' + Inttostr(i)) as TLabel).caption) - 4);

kannste glaube ich besser so machen,

Delphi-Quellcode:

Var
  _str: String;
begin
  _Str := (Application.MainForm.FindComponent('PlLab' + Inttostr(i)) as TLabel).caption;
  SetLength(_str, Length(_Str) - 4);
end;

hab das nicht getestet sollte aber so gehen, denke ich jedenfalls :)


mfg, Mika

[mika]

da war einer schneller :)

[Hellcat]

Ok, Danke! Bin (nachdem ich's mir noch mal angeschaut hatte) auf den gleichen Gedanken gekommen!

[Motzi]

Abschneiden geht übrigens auch mit Delete()... :roll:

[dopeline]

Hallo!

wie kann ich den string so verändern, dass dieser bis auf die letzten 3 zeichen gelöscht wird?

also z.b. aus 'TestNr1' wird 'Nr1'

jemand eine idee?


Gruß, dopeline

[SirThornberry]

Delphi-Quellcode:

mystring := copy(mystring, length(mystring)-2,3);

[dopeline]

danke dir! aber kannst du noch erläutern, was die -2 bzw die 3 bewirken? ich vermute mal, dass 3 die anzehl der letzten zeichen ist... aber -2?


Gruß, dopeline

[dopeline]

hat sich schon erledigt! ein bischen nachdenken bewirkt wunder! :oops:


Gruß, dopeline