"Calle." <Calle@jyde.dk> wrote in
news:3e3a913c$0$132$edfadb0f@dtext02.news.tele.dk:
> Hvordan får jeg lettest en tekst (8 tegn) fra en combobox skrevet
> ned i en 'file of char' fil.
> prøvet med copy for at få tegn for tegn, med en for next løkke, men
> kan ikke få det til at virke, da det jo kommer ud som string
procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle: File of Char;
i, chars: integer;
begin
Assignfile(FileHandle, filename);
rewrite(FileHandle);
chars := 8;
if length(Edit1.Text) < 8 then chars := length(Edit1.Text);
for i:=1 to chars do
write(FileHandle, Edit1.Text[i]);
CloseFile(FileHandle);
end;
/Claus
--
Claus Christiansen, <mailto:NOSPAM@unipeople.dk>, plz leave the address
personal: <
http://unipeople.dk/~cch>; pythia: <
http://www.pythia.dk>
===========================================================--------------
"Computers are useless. They can only give you answers" - Pablo Picasso