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

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

[mkinzler]

temp3 := temp;

[fortuneNext]

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 := temp;
writeln(temp2 + temp3); // Exception I-O Error :-/
end;
closefile(txtfile);
end;

[taaktaak]

writeln(txtfile,temp2 + temp3);

[rollstuhlfahrer]

HI,

ich glaub, dein Problem hängt an dem Reset. Das öffnet eine Datei für den NurLesen-Modus. Zum Schreiben solltst du besser Rewrite (altes löschen und neu schreiben) oder Append (anhängen) verwenden.

Bernhard

[fortuneNext]

okay, das ware beides die fehler xD danke!
man, ich dachte die ganze zeit das läge an der konvertierung... danke sehr!



man... ich fühl mich hier wie ein volldepp der die ganze zeit irgendwelchen vollzeitcracks dumme fragen stellt xD

[omata]

Reset reicht da völlig aus...

Zitat von Delphi-Hilfe:

In Delphi legt FileMode den Zugriffsmodus fest, wenn typisierte und nicht typisierte Dateien (keine Textdateien) mit der Prozedur Reset geöffnet werden.

[taaktaak]

Schon, aber in diesem Fall ist's ja wohl 'ne Textdatei

[rollstuhlfahrer]

Zitat von fortuneNext:

man... ich fühl mich hier wie ein volldepp der die ganze zeit irgendwelchen vollzeitcracks dumme fragen stellt xD

Du, Fehler macht hier jeder. Und wenn alle zusammenlegen, übertrumpfen wir sogar Microsoft, nur dass wir halt besser sind in der Fehlerbehebung.