Forum: Programmieren allgemein
by Bummi,
2. Feb 2011
Ich habe den Thread nicht komplett verfolgt und werde jetzt sicher nicht alles nachlesen. Etwas in der Art vermute ich:
Procedure TForm1.AllImagesOnClick(Sender:TObject);
begin
FErgebnis := FErgebnis + TImage(Sender).Tag;
end;
Forum: Programmieren allgemein
by Bummi,
2. Feb 2011
Steht doch jetzt im Tag ...
Forum: Programmieren allgemein
by Bummi,
1. Feb 2011
So, jetzt kannst Du Dich um die Logik bzgl. der tags kümmern.....
procedure TForm1.Button2Click(Sender: TObject);
var
ListeVonDateinamen:TStringlist;
DateinameIndex:Integer;
i,j:Integer;
Path:String;
begin
begin
Forum: Programmieren allgemein
by Bummi,
1. Feb 2011
Wenn Du keine OCR programmieren willst, merk Dir im Tag des Images "die Zahl des Bildes", die wirst Du beim malen oder laden wahrscheinlich kennen.