Einzelnen Beitrag anzeigen

fortuneNext

Registriert seit: 11. Aug 2007
Ort: Neuss
133 Beiträge
 
Delphi 7 Enterprise
 
#1

Char in String, hab keine Antwort gefunden :X

  Alt 25. Aug 2008, 20:38
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
Tim
"Hilfe & Support konnte nicht geöffnet werden. Bitte öffnen sie Hilfe & Support, um das Problem zu beheben."
"No Keyboard found. Press F1 to continue."
  Mit Zitat antworten Zitat