Fejl i min kode.. Hvor?

Kommer den med en fejl eller virker det bare ikke ?
IntToStr(Number)) // hvor kommer number fra ?

Stoney

Det virker bare ikk..

Number er en variabel på den form som bruger koden.. På MainForm'en findes der nogle TTBItem's navnet som EditButton1, EditButton2 osv.. Hver EditForm har så en EditButton som hører til formen..

navnet på componenten er casesensitivt

Stoney

Ja.. Componentet hedder "EditButton" og jeg kalder det med "EditButton".. Burde det ikk virke? Eller skal jeg virke køre en lowercase(); på dem?

Jeg har lige testet med edit felter

var
  I,number: Integer;
begin
number := 1;
  for I := 0 to MainForm.ComponentCount-1 do

    begin

      if (MainForm.Components[I] is Tedit) and (MainForm.Components[I].Name = 'Editbutton' + IntToStr(Number)) then
        ShowMessage((MainForm.Components[I] as Tedit).Name);
    end;;
  end;

Det virker.
Prøv lige at checke din kode engang til

Stoney

Check evt din var number

Stoney

Hmm.. Jeg har lige tjekket det hele igennem.. Først Number og derefter om komponentet rent faktisk findes.. Begge delene fejler ikk noget..

Jeg har omformet koden lidt nu..

// start
var
  I: Integer;
begin
  for I := 0 to Application.ComponentCount-1 do begin
    if (Application.Components[I].Name = 'EditButton' + IntToStr(Number)) then
      ShowMessage('Hej');
  end;
// slut

Denne giver ikk en MessageBox med "Hej".. Som det burde.. Hvorfor ville jeg meget gerne vide.. Det er en større del af mit program (Web-Editor) som er afhængig af denne kode..

Prøv denne

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin

  for I := 0 to application.ComponentCount-1 do begin
    if (Components[I].Name = 'EditButton' + IntToStr(Number)) then
      ShowMessage('Hej');
  end;
  end;

Stoney

nope.. Hjalp ikk! Vi skal huske at den form der kalder koden hedder EditForm og den som EditButton[tal] ligger på hedder MainForm..

Det virker hos mig.
Prøv lige at chekde din variabel number.

Det skal virke.

Stoney

Jamen.. Det gør det ikke! Skal jeg sende dig sourcen? Så kan du lave det så det virker :D

Smid et memo på formen og kør det følgende:

for I := 0 to MainForm.ComponentCount-1 do
begin
  if (MainForm.Components[I] is TTBItem) then
    Memo1.Lines.Add('TTBItem navn: '+MainForm.Components[I].Name);
end;

Mon ikke du ud fra resultatet kan finde din fejl?

Det var mig der havde lavet en fejl.. Sry.. Jeg tillader mig selv at tage pointene igen da min originale kode faktisk virkede..

takker..

--