String einen Char übergeben

[Pseudemys Nelsoni]

Moin!

ich habe einen kleinen string, also 255 in der länge. Wieso geht das hier nicht:

Delphi-Quellcode:

myString[1..256] := '_';

?

Also ich möchte jedes Char des strings füllen, aber ohne extra eine for shcleife nehmen zu müssen.

jemand ne idee?

[Bernhard Geyer]

Probiers mal mit

Code:

FillChar(var X; Count: Integer; Value: Byte)

[Duffy]

Hallo Pseudemys Nelsoni,
versuch mal

Code:

myString[1..256] := PChar('_');

bzw.

Code:

myString := PChar('_');

bye
Claus

[Pseudemys Nelsoni]

hallo bernhard, ich benutze Turbo Pascal 7.0, sorry hab ich vergessen zu erwähnen, dort gibt es die funktion nicht

[Pseudemys Nelsoni]

@Duffy, nein, funktionietr leider auch nicht :(

[Bernhard Geyer]

Dann bastel dir halt 'ne entsprechende Funktion mit diesen Übergabeparametern:

Code:

procedure FillChar(var Dest; count: Integer; Value: Char);
var
  I: Integer;
  P: PChar;
begin
  P := PChar(@Dest);
  for I := count-1 downto 0 do
    P[I] := Value;
end;

[Duffy]

Hallo Pseudemys Nelsoni,
da myString ein Array of Char ist kannst höchstens ein Zeichen direkt übergeben, also

Delphi-Quellcode:

myString[1] := '_';

oder Du wenn Du alle Zeichen des Arrays mit dem einem Zeichen gefüllt haben willst

Delphi-Quellcode:

for I := Low(myString) to High(myString) do
  myString[I] := '_';

bye
Claus

[nailor]

Zitat:

The FillMemory function fills a block of memory with a specified value.

VOID FillMemory (

PVOID Destination, // pointer to block to fill
DWORD Length, // size, in bytes, of block to fill
BYTE Fill // the byte value with which to fill
);

[The-X]

Zitat:

Zitat von Pseudemys Nelsoni

hallo bernhard, ich benutze Turbo Pascal 7.0, sorry hab ich vergessen zu erwähnen, dort gibt es die funktion nicht

fillchar(buf,size,value); gibt es auch für TP7.0 hab grade nachgesehen