String in Char umwandeln

[Lucifer]

Hallo



Also das ist nicht das erste mal das man dies fragt und ich habe auch gesucht.
Nur brauche ich für die UnRar ja einen Filename welcher ein Array of Char ist.

Ich habe eine Listbox auf der Form und die einzelnen Zeilen werden ja über lb.Items[] angesprochen.
Das Problem ist dass es sich dabei um Strings handelt.

Nun wie soll ich es am besten anstellen:

Ich möchte auf die Listbox Items clicken und danach die Datei auspacken welche ich ausgewählt habe.
Aber wie gesagt es ist ein Array of Char und Items sind Strings

[DeddyH]

Mal versucht, den String in einen PChar zu casten?

[Lucifer]

sagt mir inkompatibel Array und PAnsiChar

[DeddyH]

Wie muss das denn aussehen? Zeig doch mal die Signatur der aufgerufenen Funktion.

[p80286]

Hallo Lucifer,

versuch mal folgendes:

Delphi-Quellcode:

var
  car: packed array [1..255] of char;
  s1 : string;
  s2 : string[255];
...
  car:=s1;
oder ...
  car:=s2
oder ...
  move(s2[1],car[1],length(s2);

je nachdem mit welcher Delphi-Version du arbeitest sollte da etwas funktionierendes dabei sein.
Bei den shortStrings hat bei mir soetwas auch meistens geklappt.

Mit den AnsiStrings habe ich soetwas noch nicht ausprobiert aber für Dateinamen reichen die 255 Zeichen wohl auch aus.

Gruß
K-H

[Lucifer]

funktioniert auch nicht:

Delphi-Quellcode:

RARHeaderData = packed record
    ArcName: packed array[0..Pred(260)] of Char;
    FileName: packed array[0..Pred(260)] of Char;
    Flags: UINT;
    PackSize: UINT;
    UnpSize: UINT;
    HostOS: UINT;
    FileCRC: UINT;
    FileTime: UINT;
    UnpVer: UINT;
    Method: UINT;
    FileAttr: UINT;
    CmtBuf: PChar;
    CmtBufSize: UINT;
    CmtSize: UINT;
    CmtState: UINT;

so sieht das eigentlich aus
und ich benötige die Filename

aber wie gesagt was in einer Lisbtox steht ist String

[DeddyH]

Mit StrPCopy sollte es gehen. Kleines Beispiel:

Delphi-Quellcode:

type TMyRec = packed record
  sTest: packed array[0..Pred(260)] of Char;
end;

procedure TForm1.FormCreate(Sender: TObject);
var MyRec: TMyRec;
begin
  FillChar(MyRec, SizeOf(MyRec),#0);
  StrPCopy(MyRec.sTest,'Tach auch');
  ShowMessage(MyRec.sTest);
end;

[Lucifer]

tut mir leid ich habs versucht doch trotzdem will es nicht

Delphi-Quellcode:

  FillChar(MyRec, SizeOf(MyRec),#0);
  StrPCopy(MyRec.sTest,'test');

  RarHeader.FileName:=MyRec.sTest;

DCC Fehler E2008 Inkompatible Typen

[DeddyH]

Du musst ja auch mit StrPCopy den String in das Feld des Records kopieren. Mein Beispiel hatte nichts mit Deinem Record zu tun.

[Lucifer]

Vielen Dank es hat geklappt um den String einzutragen.
Ich danke dir wikrlich Vielmals