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