Autor Zpráva
lukasik
Profil
dá se nějak v delphi vytvořit proměnná za běhu bez deklarace?
mám const a znácí abecedy,;
potřebuji aby se mi vytvořila, popřípadě přičetla 1 k nové proměné,
která se bude rovnat abecedě[i];
docela složité na pochopení xD;
procedure TForm1.Button7Click(Sender: TObject);
var radek1:string;
    i1:integer;
    a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z:integer;
const abeceda:array[1..26] of char=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
begin
radek1:=memo2.lines[0];
for i:=1 to 26 do
begin
  for i1:=1 to length(radek1) do
  begin
    if abeceda[i]=raked1[i1] then (nová proměná, která se bude menovat jako abeceda[i];
  end;
end;
end;
Chamurappi
Profil
Reaguji na lukasika:
Jak souvisí tento dotaz s webdesignem, že jej pokládáš na diskusním fóru o webdesignu?
A proč pojmenováváš vlákno takhle hloupě?

dá se nějak v delphi vytvořit proměnná za běhu bez deklarace?
Myslím, že nedá. Ale i pokud to jde, tak to asi není moc dobrý nápad a doporučuji ti upravit program tak, abys to nepotřeboval.
nightfish
Profil
lukasik
řešením je použít pole celých čísel (array of integer)

Vaše odpověď

Mohlo by se hodit

Příspěvky nesouvisející s webem budou odstraněny.

Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm:

0