-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
6. Jan 2013
den habe ich nicht ganz verstanden
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
so denk ich mir das wo liege ich denn falsch?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
mhh die dürfte ja auch nur einmal durch bis zum until dann ist doch schon die abbruch bedingung erfüllt
ich seh jetzt nicht den Fehler dadranne
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
so klappt es aber wieso ging das nicht mit der repeat schleife?
ich laufe doch auf jedenfall die schleife durch.
und dann ist doch sofort das until erreicht mit
(spalte:=1) spalte + 2 ist sofort die länge meiner Zeichen im Editfeld
Ich hab jetzt aber keine idee wie ich diese schleife so hin bekomme das es so funktionert wie ich es möchte weil sobald ja die Länge wieder anders ist passen...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
das problem ist das wir so nen paar sachen erzählt bekommen haben von unserem dozenten
und der nix anderes dann akzeptiert er meint das kann dann nur ausm Internet kommen und das ist ja alles falsch und schlecht...
ich möchte jetzt ja nur diese neuen Pixelwerte aus meinem Editfeld der Reihe nach in das
rneu,gneu,bneu rein haben
jetzt hab ich das alles so geschrieben aber er bricht die...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
mhhh das ist ja mit diesen getrvalue das hatten wir ja nicht.
das mit dem R := Ord(...); kenne ich auch nicht und weiß nicht was es bedeutet?
Merkwürdig ist das mein Programm bei rneu noch passt und dann bei gneu und bneu schon nicht funktioniert?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
jetzt bleibt das programm hängen er macht die schleife nicht
ist das denn mit meinen Erklärungen so richtig oder ist da ein Fehler?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
for spalte:=1 to laenge_der_verschluesselung do //Pixel aus der 1. Spalte bis Stellenlänge
begin
farbe:=image1.Canvas.Pixels; //Erste Pixel lesen
wert:=tex; //Buchstaben aus Editfeld an der Stelle der Schleife lesen
Ordnungszahl:=ord(wert); //Ordnungszahl erstellen aus Buchstabe an der...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
yop genau so ist es
ich hab da mal das hier versucht
Klappt natürlich nicht
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
ok
ich hab jetzt ein editfeld dort soll ein Text rein.
Dieser muss dann ja Buchstabe für Buchstabe geladen werden.
Dann die Ordnungszahl erstellt werden und diese nacheinander für die neuen
farbwerte rneu,gneu,bneu eingesetzt werden.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
mhh
kann ich das nicht mit diesem procedure(var ....);
dann machen?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
ne das hatten wir nicht das gibt nur wieder rummgemecker...
jetzt hab ich nen neues Problem
Ich möchte jetzt für die rneu,gneu,bneu eine Prodcdur einsetzen die ich vorher für einen Button gemacht habe.
Das sieht jetzt so aus und geht mal wieder nicht was ist dadrann denn falsch?
rneu:=TForm1.Button6Click;
gneu:=TForm1.Button6Click;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
jetzt klappts so wie ich gerne wollte
rneu:=0;
gneu:=250;
bneu:=0;
Neues_Pixel:=(bneu shl 16) + (gneu shl 8)+ rneu;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
Ich hab jetzt das stehen
rneu:=50 and $0000FF;
gneu:=(60 and $00FF00);
bneu:=(70 and $FF0000);
Neues_Pixel:=(bneu shl 16) + (gneu shl 8)+ rneu;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
ok das ist gut dann hab ich das jetzt so verstanden.
jetzt möchte ich ja selber diese Buchstaben in die einzelnen Bits der Pixel schreiben.
wäre das hier richtig?
rneu:=50 and $0000FF;
gneu:=(60 and $00FF00) shr 8;
bneu:=(70 and $FF0000) shr 16;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
also würde das Pixel auslesen aus einem jpeg auch nicht gehen?
Oder geht das wenn ich das in ein Delphi image lade?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
ok jetzt kommts langsam.
Also macht sowas auch nur sin wenn ich ein Pixel aus einem 24BIT bitmap auslesen möchte?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
Mhh also so richtig verstanden habe ich das noch nicht.
Also ich habe jetzt mein PIXEL als Integer dieses soll jetzt ein Byte werden?
Ist das so richtig verstanden?
Ich hatte das bisher so verstanden das dieses Pixel aus 4 Bytes besteht.
Im ersten linken ist nix im 2. dann der Blau wert danach der Grün und dann der Rote.
Und jetzt leses ich aus diesem Integer die drei Farben aus das sind...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
chr ist eine Funktion und gibt einen zahlen(Integer) wert als Buchstaben aus.
$00FF00 SHR 8?
ist der Farbfilter für den Grünenbereich und gibt diese "hohe Zahl/ WERT*256" aus und schiebt in den Rotenbereich dort wird diese Zahl dann als Wert zwischen 0 und 255 angezeigt
$FF0000 SHR 16?
Das selber Spiel für den Blaubereich und hier wird die Wert*256*256 ebenfalls nach rot geschoben
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
das programm geht ja nicht richtig, deshalb würde ich es gerne mal verstehen
und dann selber nachbauen schritt für schritt aber ich weiß nicht was es jetzt da in diesen Zeilen tut mit den werten
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
ja das habe ich soweit verstanden aber ich verstehe nicht was das s:=s+ch
bzw. ch :=chr(b);macht und dann noch dreimal hintereinander?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by EMS,
5. Jan 2013
Hallo
Ich habe hier diesen Quelltext aber kann damit nix anfangen
kann mir den jemand erkläre?
s:='';
for index:=1 to anz do
begin
farbe:=image1.canvas.pixels; //showmessage(inttostr(farbe));
b:=farbe and $ff; ch :=chr(b);