Kann Delphi jetzt kein s[1] mehr?

[derpepe]

Natürlich kommen auch Strings mit Länge 0 vor, daran hatte ich ja gar nicht gedacht!! :wall: :wall:
DANKE!! :love:

Gibt es nicht etwas geschickteres als copy(s,1,1)? Sieht so nach "mit Kanonen auf Spatzen"-Schießen aus :zwinker:

[malo]

Du könntest ja mit einer if-Abfrage prüfen, ob der String ein Zeichen hat oder nicht ;)

[Binärbaum]

Zitat:

Zitat von derpepe

Natürlich kommen auch Strings mit Länge 0 vor, daran hatte ich ja gar nicht gedacht!! :wall: :wall:
DANKE!! :love:

Gibt es nicht etwas geschickteres als copy(s,1,1)? Sieht so nach "mit Kanonen auf Spatzen"-Schießen aus :zwinker:

Delphi-Quellcode:

if length(s) >=1 then s[1]:= ...

Etwa sowas?

MfG
Binärbaum

[derpepe]

Ich dachte eher ob es eine vordefinierte Funktion gibt die ungefähr so aussehen müßte:

Delphi-Quellcode:

function gibzeichen(s:string;pos:integer):char;
begin
  if length(s)>=pos then
    gibzeichen:=s[pos]
  else
    gibzeichen:='';
end;

oder so

Delphi-Quellcode:

function gibzeichen(s:string;pos:integer):char;
begin
  gibzeichen:=copy(s,pos,1);
end;

:mrgreen:

[malo]

Schreib dir doch selbst eine :mrgreen:

Delphi-Quellcode:

function gibzeichen(s: string; pos: integer): char;
begin
  if length(s) >= pos then
    result := s[pos]
  else
    result := '';
end;

:zwinker:

[Binärbaum]

Wozu brauchst du da eine vordefinierte Funktion, wenn du die mit wenigen Codezeilen selbst die passende Funktion schreiben kannst? :gruebel:
Und ich dachte immer, nur die C/C++ -Programmierer sind faule Leute :mrgreen:

[derpepe]

Ey, wie biste blos auf den Quelltext gekommen :?: :?:
Könnte glatt von mir sein :!:

:wiejetzt:


Ich wollte doch was vordefiniertes...
Aber egal, es geht ja jetzt :dp:

[derpepe]

*g* ich muss schon zugeben dass ich Sachen wie

$s=($i++)+(++$x);

in Delphi oder PHP sehr vermisse :drunken:

[malo]

[Kurz OT]

Zitat:

Zitat von derpepe

*g* ich muss schon zugeben dass ich Sachen wie

$s=($i++)+(++$x);

in Delphi oder PHP sehr vermisse :drunken:

Das ist aus Perl, nicht? (Hab gestern ein Buch drüber bei uns gefunden *g*) :)

In Delphi brauchst du halt *etwas* mehr Tipparbeit ;) [/Kurz OT]

[SirThornberry]

@derpepe: Hier mal eine bedeutend schnellere Variante zum zählen der Leerzeischen (da nicht bei jedem führenden Leerzeischen der String neu zusammengesetzt wird)

Delphi-Quellcode:

var LLen: Integer;
begin
  result := 1;
  LLen := Length(AStr);
  while (result <= LLen) and (AStr[result] = ' ') do
    inc(result);
  dec(result);
end;