RightStr, LeftStr nicht gefunden???

[himitsu]

Copy(StringVar, length(StringVar) - 2, 3) ... ihr solltet euch langsam mal merken, daß Strings nicht mit 0 beginnen !!

@vlees91: ich hoffe mal das mit dem Leerzeichen (#9) war nur ein Witz :shock:


also:

Delphi-Quellcode:

LeftStr(S, i)   =  Copy(S, 1, i)
RightStr (S, i) = Copy(S, Length(S) - i + 1, i)

[EDatabaseError]

ok teste ich

[Zacherl]

Zitat:

ihr solltet euch langsam mal merken, daß Strings nicht mit 0 beginnen !! Weiß ich, sonst hätte ich kaum das:

Zitat:

Copy(StringVar, 1, 3)

geschrieben :wink: Weiß auch nicht warum ich das bei Copy ständig mache ...

Der zweite Ansatz war zugegeben falsch.
Muss halt

Delphi-Quellcode:

Copy(StringVar, length(StringVar) -2, 3)

statt

Delphi-Quellcode:

Copy(StringVar, length(StringVar) -3, 3)

heißen.

Florian

[EDatabaseError]

Zitat:

Zitat von himitsu

Copy(StringVar, length(StringVar) - 2, 3) ... ihr solltet euch langsam mal merken, daß Strings nicht mit 0 beginnen !!

@vlees91: ich hoffe mal das mit dem Leerzeichen (#9) war nur ein Witz :shock:


also:

Delphi-Quellcode:

LeftStr(S, i)   =  Copy(S, 1, i)
RightStr (S, i) = Copy(S, Length(S) - i + 1, i)

???

Delphi-Quellcode:

FWert := Copy(FWert,Length(FWert) - Length(FWert)-4 + 1,Length(FWert)-4);

hier war ein Leftstr drin

Funkt leider so nicht.

[EDatabaseError]

Hab jetzt herausgefunden:
Dez 49 ist laut Umrechnung Hex 3C ist aber nicht richtig da 49 $31 ist...

Why?

[EDatabaseError]

*push*

kann sich nochmal jemand das LeftStr ansehen. Kennt meine D Hilfe nicht...und ich hab wirklich keine Lust ne DLL zu schreiben.

[Die Muhkuh]

Hi,

ich kann nur himitsu wiederholen:

Delphi-Quellcode:

function LeftStr(const Text: String; const Count: Integer): String;
begin
  Result := Copy(Text, 1, Count);
end;

[EDatabaseError]

:oops: meinte rightstr denn himitsus seine right sieht imho komisch im bezug auf s.o. aus.

[Die Muhkuh]

Delphi-Quellcode:

function RightStr(const Text: String; Count: String): String;
begin
  Result := Copy(Text, Length(Text) + 1 - Count, Count);
end;

[EDatabaseError]

:gruebel: wenn du nix geändert hast... ich hab jetzt deine functionen genommen und die copys wieder durch right und leftstr ersetzt. funktioniert! danke!