String mit gleichen Zeichen füllen z.B. s:='aaaaaaaa'

[gmarts]

Hallo!
Wie erstelle ich einen String mit n gleichen Zeichen ohne eine Schleife zu benutzen?
z.B. n=5 und zeichen:='a' dann s:='aaaaa'
Man kann ja Strings addieren, gibt es dann auch eine Funktion, die sie multipliziert?


MfG GM

[ims]

hi gmarts

hmm, hab keinen plan wie das ohne schleife gehen soll.

was hindert dich denn daran, eine schleife zu benutzen?? mit einer for-schleife bräuchtest du 2 zeilen...


gruss, dave

[Pr0g]

Weiß nicht, ob Delphi dafür eine Funktion bietet, sonst kannst du es mit Rekursion lösen:

Delphi-Quellcode:

function FillString(s, zeichen: String; count: Integer): String;
begin
  s := s + zeichen;
  if Length(s) < count then
    s := FillString(s, zeichen, count);
  Result := s;
end;

Um eine Variable bspw. mit 5 "a" zu füllen, würde der Aufruf so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := '';
  s := FillString(s, 'a', 5);
end;

MfG Pr0g

[Stevie]

function DupeString(const AText: string; ACount: Integer): string; in der Unit StrUtils...

[gmarts]

Danke für die schnellen Antworten!
Danke Stevie!!!! Habe ich in der Delphi-Hilfe wohl übersehen. :thuimb:

Wahrscheinlich bin ich nur zu pingelig. :) Eine Schleife/Rekursion erscheint mir zu langsam, besonders wenn n in den 6stelligen Bereich geht und ich diese Schleife während einer Berechnung mehrmals aufrufen muss.

[ims]

ob es allerdings mit DupeString() schneller geht...?


gruss, dave

[gmarts]

Muss ich wohl testen! :)

Wahrscheinlich benutzt DupeString() intern auch ne Schleife.

[Stevie]

Zitat:

Zitat von ims

ob es allerdings mit DupeString() schneller geht...?

Urteile selbst... :wink:

Delphi-Quellcode:

function DupeString(const AText: string; ACount: Integer): string;
var
  P: PChar;
  C: Integer;
begin
  C := Length(AText);
  SetLength(Result, C * ACount);
  P := Pointer(Result);
  if P = nil then Exit;
  while ACount > 0 do
  begin
    Move(Pointer(AText)^, P^, C);
    Inc(P, C);
    Dec(ACount);
  end;
end;

[Steve]

Zitat:

Zitat von gmarts

Wahrscheinlich benutzt DupeString() intern auch ne Schleife.

Jap, so schaut's aus
zwar 'nur' Pointer-Gefummel, aber nevertheless ne Schleife :)


Gruß
Stephan

edit: Ups, zu langsam :stupid:

[gmarts]

Danke! Na dann ist ja alles geklärt :freak: !