Anonymní profil Přéma – Programujte.com

no jo... zase já :-)

mám pro vás novou verzi kódu a funguje akorat to mam fatalni chybu :-( a to ze nacte do promeny "hodnota_cislo" i "hodnota_string" nulu (text v souboru je: barva_panacka=7 ) to barva_panacka= je prikaz ktery se nacita do prom. prikaz a 7 je jeho hodnota nejprve nactená do prom. hodnota_string a pote prevedena do ciselne prom. hodnota_cislo. ale tak se mi ukaze akorat 0 :-(.

procedure prikazy;
begin
radek:='';
hodnota_string:='';
hodnota_cislo:=0;

if prikaz='barva_panacka=' then
begin
str(hodnota_cislo,hodnota_string);
barva_panacka:=hodnota_cislo;
end;
write(hodnota_cislo);

prikaz:='';
end;

procedure nacist_data;

var soubor : text;
l,m : integer;
znak : char;
begin
assign(soubor, 'C:\Documents and Settings\Premek\Desktop\pasaci\data.txt');
reset(soubor);

while not eof(soubor) do
begin

readln(soubor, radek);
m:=length(radek);
l:=pos('=', radek);

prikaz:=copy(radek,1,l);
hodnota_string:=copy(radek,l+1,m);

prikazy;

end;
close(soubor);
end;

ěště sem zjistil že u týhle verze mi kompilátor (dev-pascal - pouziva free pascal kompilator) hlasi 4 chyby.

Dobrý den,

dělám program panáček ve kterém bude panáček ovládanný příkazy zapsanými v textovém souboru.
Ale problém je že se mi nějak špatně načítají ty příkazy ze souboru.

procedure prikazy;
begin

radek:='';
hodnota_string:='';
hodnota_cislo:=0;

case prikaz of

'barva_panacka' : begin
str(hodnota_cislo,hodnota_string);
barva_panacka:=hodnota_cislo;
end;

end;
prikaz:='';
end;

procedure nacist_data;

var soubor : text;
l,m : integer;
znak : char;
begin

assign(soubor, '***cesta***');
reset(soubor);

while not eof(soubor) do
begin

readln(soubor, radek);
m:=length(radek);
l:=pos('=', radek);

prikaz:=copy(radek,1,l);
hodnota_string:=copy(radek,l+1,m);

prikazy;

end;
close(soubor);
end;

doufám že tento kód postačí :-)