[DELPHI] Jakiś błąd

[patryk01996]

W tym kodzie jest błąd którego nie potrafie znaleść:

 

begin

DeleteFile('C:\file\inf.bin');

IdFTP1.get('inf.bin', 'c:\file\inf.bin');

Memo1.Clear;

AssignFile(PlikDanych, 'C:\file\inf.bin');

Reset(PlikDanych);

Cnt := FileSize(PlikDanych) div SizeOf(Tab);

SetLength(Tab, Cnt);

for I := Low(Tab) to High(Tab) do

begin

BlockRead(PlikDanych, Tab, SizeOf(Tab));

Memo1.Lines.Add(Tab);

end;

CloseFile(PlikDanych);

 

Z1 := memo1.Lines[0];

ZM1 := memo1.Lines[1];

EXP1 := memo1.Lines[2];

ZL1:= memo1.Lines[3];

 

Z2 := memo1.Lines[4];

ZM2 := memo1.Lines[5];

EXP2 := memo1.Lines[6];

ZL2 := memo1.Lines[7];

 

Z3 := memo1.Lines[8];

ZM3 := memo1.Lines[9];

EXP3 := memo1.Lines[10];

ZL3 := memo1.Lines[11];

 

Z4 := memo1.Lines[12];

ZM4 := memo1.Lines[13];

EXP4 := memo1.Lines[14];

ZL4:= memo1.Lines[15];

 

Z5 := memo1.Lines[16];

ZM5 := memo1.Lines[17];

EXP5 := memo1.Lines[18];

ZL5 := memo1.Lines[19];

 

Z6 := memo1.Lines[20];

ZM6:= memo1.Lines[21];

EXP6 := memo1.Lines[22];

ZL6 := memo1.Lines[23];

 

Zi1 := StrToInt(Z1);

ZMi1 := StrToInt(ZM1);

EXPi1 := StrToInt(EXP1);

 

Zi2 := StrToInt(Z2);

ZMi2 := StrToInt(ZM2);

EXPi2 := StrToInt(EXP2);

 

Zi3 := StrToInt(Z3);

ZMi3 := StrToInt(ZM3);

EXPi3 := StrToInt(EXP3);

 

Zi4 := StrToInt(Z4);

ZMi4 := StrToInt(ZM4);

EXPi4 := StrToInt(EXP4);

 

Zi5 := StrToInt(Z5);

ZMi5 := StrToInt(ZM5);

EXPi5 := StrToInt(EXP5);

 

Zi6 := StrToInt(Z6);

ZMi6:= StrToInt(ZM6);

EXPi6 := StrToInt(EXP6);

 

 

 

Gauge1.MaxValue := ZMi1;

Gauge1.Progress := Zi1;

Gauge2.MaxValue := 1000;

Gauge2.Progress := EXPi1;

Label20.Caption := ('HP '+Z1+ '/' +ZM1);

Label21.Caption := ('EXP '+EXP1+'/1000');

Label14.Caption := ZL1;

 

Gauge3.MaxValue := ZMi2;

Gauge3.Progress := Zi2;

Gauge4.MaxValue := 1000;

Gauge4.Progress := EXPi2;

Label22.Caption := ('HP '+Z2+ '/' +ZM2);

Label23.Caption := ('EXP '+EXP2+'/1000');

Label15.Caption := ZL2;

 

Gauge5.MaxValue := ZMi3;

Gauge5.Progress := Zi3;

Gauge6.MaxValue := 1000;

Gauge6.Progress := EXPi3;

Label24.Caption := ('HP '+Z3+ '/' +ZM3);

Label25.Caption := ('EXP '+EXP3+'/1000');

Label16.Caption := ZL3;

 

Gauge7.MaxValue := ZMi4;

Gauge7.Progress := Zi4;

Gauge8.MaxValue := 1000;

Gauge8.Progress := EXPi4;

Label26.Caption := ('HP '+Z4+ '/' +ZM4);

Label27.Caption := ('EXP '+EXP4+'/1000');

Label17.Caption := ZL4;

 

Gauge9.MaxValue := ZMi5;

Gauge9.Progress := Zi5;

Gauge10.MaxValue := 1000;

Gauge10.Progress := EXPi5;

Label28.Caption := ('HP '+Z5+ '/' +ZM5);

Label29.Caption := ('EXP '+EXP5+'/1000');

Label18.Caption := ZL5;

 

Gauge11.MaxValue := ZMi6;

Gauge11.Progress := Zi6;

Gauge12.MaxValue := 1000;

Gauge12.Progress := EXPi6;

Label30.Caption := ('HP '+Z6+ '/' +ZM6);

Label31.Caption := ('EXP '+EXP6+'/1000');

Label19.Caption := ZL6;

 

Label12.Caption := 'Pobrano!';

end;

 

 

 

Dodaje jeszcze wszystkie zmienne z programu:

 

var

Form1: TForm1;

los: ShortInt;

kosc: ShortInt;

mnoznik: ShortInt;

wynik: ShortInt;

a: ShortInt;

e1: String;

e2: String;

e3: String;

plik: String;

save: String;

kto: String;

l: String;

Z1, Z2, Z3, Z4, Z5, Z6: String;

ZM1, ZM2, ZM3, ZM4, ZM5, ZM6: String;

EXP1, EXP2, EXP3, EXP4, EXP5, EXP6: String;

 

Zi1, Zi2, Zi3, Zi4, Zi5, Zi6: Integer;

ZMi1, ZMi2, ZMi3, ZMi4, ZMi5, ZMi6: Integer;

EXPi1, EXPi2, EXPi3, EXPi4, EXPi5, EXPi6: Integer;

ZL1, ZL2, ZL3, ZL4, ZL5, ZL6: String;

 

 

Tab : array of string[3];

PlikDanych : File of Byte;

 

I, Cnt : integer;

 

 

[patryk01996]

doszedlem do wniosku że ttu gdzieś jest błąd:

 

 

Zi1 := StrToInt(Z1);

ZMi1 := StrToInt(ZM1);

EXPi1 := StrToInt(EXP1);

 

Zi2 := StrToInt(Z2);

ZMi2 := StrToInt(ZM2);

EXPi2 := StrToInt(EXP2);

 

Zi3 := StrToInt(Z3);

ZMi3 := StrToInt(ZM3);

EXPi3 := StrToInt(EXP3);

 

Zi4 := StrToInt(Z4);

ZMi4 := StrToInt(ZM4);

EXPi4 := StrToInt(EXP4);

 

Zi5 := StrToInt(Z5);

ZMi5 := StrToInt(ZM5);

EXPi5 := StrToInt(EXP5);

 

Zi6 := StrToInt(Z6);

ZMi6:= StrToInt(ZM6);

EXPi6 := StrToInt(EXP6);

 

 

Bład to "is not invalid interger value"

Edytowane 13 Października 2011 przez patryk01996

[mirraseq]

Któraś z w/w zmiennych string jest pusta.

[patryk01996]

jeżeli jakaś zmienna "string"(np. x) posiada wartość "0"

x := '0';

Ro przy komendzie strtoint wyskakuje ten błąd?

[mirraseq]

Nie. Tylko i wyłącznie jeśli są inne znaki od 0 do 9 lub od 0 do F o ile pierwszy znak to '$' lub dwa pierwsze to '0x' (czyli przedrostki informujące o tym, że liczba jest w systemie szesnastkowym).

[patryk01996]

oki już znalazłem błąd

porostu pomyliłem dwie zmienne i do string przypisałem pole w którym wpisuje się hasło do FTP

TNX za pomoc