Moin!

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

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?

Probiers mal mit

markieren

Code:

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

Hallo Pseudemys Nelsoni,
versuch mal

markieren

Code:

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

bzw.

markieren

Code:

myString := PChar('_');

bye
Claus

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

@Duffy, nein, funktionietr leider auch nicht

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

markieren

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;

Hallo Pseudemys Nelsoni,
da myString ein Array of Char ist kannst höchstens ein Zeichen direkt übergeben, also
myString[1] := '_'; oder Du wenn Du alle Zeichen des Arrays mit dem einem Zeichen gefüllt haben willst

markieren

Delphi-Quellcode:

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

bye
Claus

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
);

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