edity

jak zrobic, ze jezeli wpisze w pierwszym edicie np. pajak, to w drugim pojawi sie slowo np. owad ?

tablica z przypisaniami że pająk = owad trza by było najlepiej dwie tablice of string i wyszukiwanie stringu w pierwszej tablicy + wyświetlenie tekstu w drugim edicie o indexie z pierwszego

tablica z przypisaniami że pająk = owad trza by było najlepiej dwie tablice of string i wyszukiwanie stringu w pierwszej tablicy + wyświetlenie tekstu w drugim edicie o indexie z pierwszego

Kiedys udalo mi sie zrobic takie cos tylko nie pamietam jak ... wlasnie te zmienne z tym mam najwiekszy problem :| a do tego uzylem chyba petli, ze jezeli edit1=pajak wtedy edit2=owad albo cos w tym stylu, ale wlasnie nie pamietam jak to szlo ;-( ;-(

const
  zwierzaki: array[0..2] of record
    nazwa: string;
    gatunek: string;
  end = (
  (nazwa: 'pająk'; gatunek: 'owad'),
  (nazwa: 'gołąb'; gatunek: 'ptak'),
  (nazwa: 'wróbel'; gatunek: 'ptak')
  );
var
  i: Integer;
begin
  for i := Low(zwierzaki) to High(zwierzaki) do
  if edit1.Text = zwierzaki[i].nazwa then
  begin
    edit2.Text := zwierzaki[i].gatunek;
    Exit;
  end;
end;

Wstaw to do jakiego Buttona

const
  zwierzaki: array[0..2] of record
    nazwa: string;
    gatunek: string;
  end = (
  (nazwa: 'pająk'; gatunek: 'owad'),
  (nazwa: 'gołąb'; gatunek: 'ptak'),
  (nazwa: 'wróbel'; gatunek: 'ptak')
  );
var
  i: Integer;
begin
  for i := Low(zwierzaki) to High(zwierzaki) do
  if edit1.Text = zwierzaki[i].nazwa then
  begin
    edit2.Text := zwierzaki[i].gatunek;
    Exit;
  end;
end;

Wstaw to do jakiego Buttona

Wprawdzie znalem lepszy sposób, ale ten takze dziala - dzieki !

P.S Jesli ktos jeszcze jakis zna niech zapoda - bede wdzieczny !

var tablica1,tablica2:array of string;i,wielkosc:integer;

procedure nowyItem(dotab1,dotab2:string);
begin
 Inc(wielkosc);
 SetLength(tablica1,wielkosc);
 SetLength(tablica2,wielkosc);
 tablica1[wielkosc-1]:=dotab1;
 tablica2[wielkosc-1]:=dotab2;
end;

begin
 wielkosc:=0;
 nowyItem('pajak','owad');
 nowyItem('owad','pajak');
 for i:=0 to wielkosc-1 do if (LowerCase(Edit1.Text)=LowerCase(tablica1[i])) then Edit2.Text:=tablica2[i];
end;

szkoda że nikt nie zauważył że pająk to nie owad! :-D

szkoda że nikt nie zauważył że pająk to nie owad! :-D

To był przykład [cygaro] [cygaro] a poza tym jak chcesz juz pisac to przynajmniej na temat [diabel] [diabel] [browar]