string zum array of char

[Snoop007]

hi,
ich möchte auf einfachsteweise, die daten eines strings in ein array of char "packen"

sicher könnte ich dazu eine schleife nehmen, aber könnte das nicht einfacher/schöner gehen ?
die function copy wird in der delphi hilfe zwar so beschrieben, das sie auch ein array zurückliefern könnte, mach sie aber nicht

wisst ihr da was ?

[glkgereon]

probiers mal mit ner einfachen zuweisung aus

ich mein das ginge...

[Snoop007]

hi,
ne leider geht das nicht

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  CharArray : array [0..254] of char;
  StringX : string[255];
begin
  CharArray := StringX;
end;

Fehlermeldung : Inkompatible Typen : Array und ShortString

[glkgereon]

versuch ma ohne [255]... vielleicht isses dann kein shortstring mehr

[Snoop007]

das geht ja gar net habs aber getestet
Fehler array und string

[Robert_G]

• Lösung 1 - Iterieren:
  
  Delphi-Quellcode:

    set_Length(CharArray, length(StringVar));
    for i := 0 to pred(length(StringVar)) Do
      CharArray[i] := StringVar[i];

  Es gibt bestimmt noch eine elegante Lösung, sorry ich bin irgendwie nicht mehr so vertraut mit der RTTI von Delphi32.
  
  
  
• Lösung 2 - .Net
    CharArray := StringVar.ToCharArray();

Edit : pred vergessen

[Snoop007]

also scheints nur mit ner schleife zu gehen, schade
.Net hab ich Net ^^ deshalb kann ich den unteren code nicht nutzen

ok, danke euch

[Shaman]

So geht's ab:

Delphi-Quellcode:

type
  PCharArray = ^TCharArray;
  TCharArray = array[0..255] of char;
var
  CharArray: TCharArray;
  S: string;
begin
  CharArray:= PCharArray(PChar(S))^;
end;

Gruss
Shaman

Edit: Den PChar kannst Du sogar weglassen

[dizzy]

Über einen Cast gehts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TCharArray = array[0..255] of Char;
  PCharArray = ^TCharArray;
var
  a: TCharArray;
  s: String;
begin
  s := 'Test';
  a := PCharArray(s)^;
  Form1.Caption := a;
end;

mit einem ShortString:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TCharArray = array[0..255] of Char;
var
  a: TCharArray;
  s: String[255];
begin
  s := 'Test';
  a := TCharArray(s);
  Form1.Caption := a;
end;

Problem hier: Es schleichen sich am Anfang und ende ein paar Zeichen ein. Hab's auf die Schnelle nicht hinbekommen dass das sauber wird, aber es kompiliert schonmal

\\edit: Boah, aber Millisekunden zu lahm

[Nothine]

es geht auch so ^^

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var A: array of Char;
    S: string;
begin
  S := 'blablabla';
  string(A) := PChar(S);
  Form1.Caption := string(A);
end;