Witam!
Mam powazny problem nad ktorym siedze od kilku dni.
Mam za zadanie wykonac szereg buttonow operujacych na liscie.
Kilka mam zrobionych. (dodawanie elementu,co jest przed nim,za nim,usowanie...)
Zostalo mi pare buttonow. Jeden z nich, ma odnalezc minimalny element listy
(liczbowy, lub lancuchowy). Kolejny usunac takowy. Stworzylem taka procedure
do tego pierwszego: ale jest do bani!
Jakiej petli uzyc??????

procedure TForm1.bMinimumClick(Sender: TObject);
var
  min: integer;
  y: integer;
begin
  p:= First(L);   q:= Next_(L,p);
  min:=p;
 if p<q then // tylko jesli pierwszy elem. jest mniejszy od nastepnego
  ShowMessage('Element minimalny to: '+IntToStr(p))
  else
  ShowMessage('Brak elementow!');
end;

Zmienne globalne to:

  L: list;
  x: telement;
q,p: position;

ponadto:

const
       MAX = 100;
type
  TElement=string[10];
  List= record
           Elem: array [1..MAX] of TElement;   // tablica statyczna
           Last: integer;                              // indeks ostatniego elementu
        end;

No i oczywiscie pewne wyjasnienie:

  • funkcja next zwraca nastepna pozycje po zadanej,
  • first zwraca pozycje pierwszego elementu

Gdyby ktos byl tak dobry i zechcial mi pomoc....