Char in String, hab keine Antwort gefunden :X

**fortuneNext**

Hi,
ich habe jetzt viel gegoogelt und die Forensuche genutzt, aber nur ein String -> Char Konvertierungsfunktion gefunden. Aber wie geht das andersrum?

http://www.delphipraxis.net/internal...ect.php?p=8356 das hab ich nur gefunden...
PChar klappt aber nur mit AV....

hier eine reine TESTPROZEDUR ohne sinnvolle schöne programmierung oder sonst was

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  txtfile: textfile;

  x: integer;

  temp: char;

  temp2: string;

  temp3: string;

begin

assignfile(txtfile, 'C:/text.txt');

reset(txtfile);

randomize;

for x := 1 to 36768 do

begin

temp := chr(random(255));

temp2 := inttostr(x) + ' ';

temp3 := pchar(temp); // AV

writeln(temp2 + temp3);

end;

closefile(txtfile);

end;

ebenso wie

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  txtfile: textfile;

  x: integer;

  temp: char;

  temp2: string;

  temp3: string;

begin

assignfile(txtfile, 'C:/text.txt');

reset(txtfile);

randomize;

for x := 1 to 36768 do

begin

temp := chr(random(255));

temp2 := inttostr(x) + ' ';

temp3[1] := temp; // AV

writeln(temp2 + temp3);

end;

closefile(txtfile);

end;

Ich hoffe damit hätt ichs dann....
mfg

Char in String, hab keine Antwort gefunden :X

Char in String, hab keine Antwort gefunden :X

Forumregeln