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!!
DANKE!!

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

[malo]

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

[Binärbaum]

Zitat von derpepe:

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

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

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;

[malo]

Schreib dir doch selbst eine

Delphi-Quellcode:

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

[Binärbaum]

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

[derpepe]

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




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

[derpepe]

*g* ich muss schon zugeben dass ich Sachen wie

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

in Delphi oder PHP sehr vermisse

[malo]

[Kurz OT]

Zitat von derpepe:

*g* ich muss schon zugeben dass ich Sachen wie

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

in Delphi oder PHP sehr vermisse

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;