Mam projekt komiwojażera na ACO i mam 2 małe problemiki związane z konwersją tekstu jak i z przypisywaniem wartości do zmiennych. Ale po kolei.
- W Form1 mam zmienne konfigurowalne dla algorytmu (ilość pokoleń, ilość agentów w pokoleniu itp), w Form2 mam Edity odpowiedzialne za zmiany, przy jego załadowaniu wykonywane jest:
Edit4.Text:=inttostr(Fstart);
Edit5.Text:=inttostr(Tau);
Edit6.Text:=inttostr(pA);
Edit7.Text:=inttostr(pB);
(...)
Mam button który wywołuje takie coś:
val(Edit7.Text,g,code);
if code<>0 then
begin
(...)
end
pB:=g;
Form2.Close();
Ale nowa zawartość do zmiennej jest przypisywana nawet jak zamykam form2 normalnie krzyżykiem. Czemu się tak dzieje?
- Też związane z edycją, mam jedną zmienną double która na starcie ma przypisaną wartość 0.09, przy wrzuceniu jej do Edita jest 0,09 i val nie może poprawnie zrobić konwersji, dopiero jak zamienię przecinek na kropkę działa. I po tym jak zamienię to i wrócę do Edycji zmiennych to już jest konwersja do Edita robiona z kropką i mogę bez problemu zapisywać bez kombinowania. Da się to jakoś naprawić po prostu czy muszę w stringu zamieniać , na .?