Teilweise Strings übertragen

[Marcl]

Hei,
kann mir jemand vielleicht die Delphi Variante für den VB Befehl left$ right$ erklären?
Praktisch:

z.B. aus einer Filelistbox mit dem Inhalt Test.dat nur das Test in eine Listbox übertragen.
Ich mache das ganze mit einer for-next Schleife bin aber noch blutiger Anfänger und hab noch
überhaupt keinen Plan wie das hier funzt.


Gruß Marcel

[SirThornberry]

bei delphi gibt es dafür die funktionen
LeftStr()
RightStr()
Diesen übergibst du den ursprungsstring und bekommst dann den teil zurück.
Beispiel:

Delphi-Quellcode:

Zielstring := RightStr('abcdef', 2); //danach ist Zielstring: "ef"
Zielstring := LeftStr('abcdef', 2); //danach ist Zielstring: "ab"

[Binärbaum]

Nur so am Rande:
Notfalls hätte man es auch mit copy realisieren können:

Delphi-Quellcode:

function Links(aStr: string; count: Cardinal): string;
begin
  Result:= copy(aStr, 1, count);
end;

function Rechts(aStr: string; count: Cardinal): string;
var ls: Integer;
begin
  ls:= length(aStr);
  Result:= copy(aStr, ls - count +1, ls);
end;

MfG
Binärbaum

[SirThornberry]

@Binärbaum: Man hätte sich auch die copy-funktion noch selbst schreiben können *ironie* :roll:

[Binärbaum]

Zitat:

Zitat von SirThornberry

@Binärbaum: Man hätte sich auch die copy-funktion noch selbst schreiben können *ironie* :roll:

Aber wenn, dann eine, bei der man noch in einem zusätzlichen Parameter übergibt, ob vom Stringanfang oder -ende an kopiert wird. :wink:

[OT]
Früher, als es noch kein copy gab, da musste das auch irgendjemand machen, damit wir das jetzt wie selbstverständlich verwenden können. :-D
Aber manchmal (und hier wieder) fällt mir auf, dass es in Delphi zig Funktionen gibt (wie z.B. LeftStr), die man ebenso in ein oder zwei Zeilen Code geschrieben hätte, wenn man auf andere ähnliche Funktionen (z.B. copy) zurückgreift.
[/OT]

[Marcl]

Komisch...
Ich halt nur Delphi 5 aber irgendwie kennt der den Befehl net...
Muss ich da was deklarieren oder so?

[Khabarakh]

In Delphi 6 ist er vorhanden, du musst noch die Unit StrUtils einbinden.

[Marcl]

noch ne dumme Frage...wie geht das :-D

[Khabarakh]

Zitat:

Zitat von Marcl

noch ne dumme Frage...wie geht das :-D

Delphi-Quellcode:

unit Unit1

interface

uses 
  Windows, SysUtils, ..., StrUtils;  //<- StrUtils eintragen

[Marcl]

Mein Delphi 5 Standart kennt die StrUtils nicht.
Jetz bin ich platt...