Komisches String Verhalten?

[AlexII]

Hallo,

ich habe folgendes Problem. Ich verstehe nicht wieso in der Rückgabe bzw. dem Result nicht immer 8 Zeichen bzw. Buchstaben stehen? Sehr oft 8, aber ab und zu gar keine oder nur 3 oder 4... hm... kapiere ich nicht. Ich habe eine Vermutung, dass das irgendwie dann aufkommt, wenn ein Buchstabe mehrmals nacheinander vorkommt, oder irre ich mich da?

Bin für jede Aufklärung dankbar.

Delphi-Quellcode:

function GetPassword(vUpCaseLet: Integer): String;
var
  i : Integer;
  s1 : String;
const
  u  : String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  // Großbuchstaben
  if vUpCaseLet = 1 then
  begin
    s1 := '';
    for i := 1 to 8 do
    begin
      s1 := s1 + u[Random(Length(u) + 1)];
    end;
  end;

  Result := s1;
end;

[himitsu]

Weil das +1 falsch geklammert ist?

Schalte mal in den Projektoptionen die Bereichsprüfung ein.


Und nein, da sind immer 8 Zeichen drin (wenn vUpCaseLet=1), was dir der Debugger bestätigen wird, falls du den mal nutzen solltest.
Aber nicht alle Zeichen werden von allem angezeigt (alles mit PChar dazwischen schneidet z.B. ab einer #0 den String ab)


PS: das vUpCaseLet sieht mir aber arg nach einem "Boolean" aus.

[Sir Rufo]

Eine Warnung müsste der Compiler hier auch ausgeben: sl

[AlexII]

Zitat von himitsu:

Weil das +1 falsch geklammert ist?

Boah... tatsächlich, ich war Betriebsblind.

Zitat von himitsu:

Schalte mal in den Projektoptionen die Bereichsprüfung ein.

Ich schreibe in diesem Fall mit Lazarus. )))

Zitat von himitsu:

Und nein, da sind immer 8 Zeichen drin (wenn vUpCaseLet=1), was dir der Debugger bestätigen wird, falls du den mal nutzen solltest.
Aber nicht alle Zeichen werden von allem angezeigt (alles mit PChar dazwischen schneidet z.B. ab einer #0 den String ab)

Habe ich schon vermutet. Danke!

Zitat von himitsu:

PS: das vUpCaseLet sieht mir aber arg nach einem "Boolean" aus.

Stimmt, muss ich ändern!

[himitsu]

Zitat von Sir Rufo:

Eine Warnung müsste der Compiler hier auch ausgeben: sl

Kann sein, daß er es nicht macht, da Strings immer initilisiert sind. (sonst würde die Referenzzählung nicht funktionieren)

Zitat von AlexII:

Ich schreibe in diesem Fall mit Lazarus. )))

Selbst Lazarus müsste Compileroptionen für die Bereichsprüfung ({$R} / {$RANGECHECKS} ) und die Überlaufprüfung ({$Q} / {$OVERFLOWCHECKS} ) kennen.