was soll das übersetzt heißen?

[Popov]

Ich hab das jetzt aus dem Kopf geschrieben ohne es zu testen. Teste du das mal:

Delphi-Quellcode:

var
  Bmp: TBitmap;
  x, y: Integer;
  s: String;
  PixCol: TColor;
  RGBCol: Integer;
  R, G, B: Byte;
  c: Char;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile('c:\irgendeinbild.bmp'); //irgend ein Bmp Testbild
    Bmp.PixelFormat := pf24bit; //in 24Bit Bitmap umwandeln

    s := Edit1.Text; //Edit1.Text in s übertragen

    for y := 0 to Bmp.Height - 1 do
      for x := 0 to Bmp.Width - 1 do
      begin
        PixCol := Bmp.Canvas.Pixels[x, y]; //Pixel holen
        RGBCol := ColorToRGB(PixCol); //in RGB konvertieren

        R := GetRValue(RGBCol);
        G := GetGValue(RGBCol);
        B := GetBValue(RGBCol);

        if Length(s) > 0 then c := s[1] else c := #0; //wenn kein Zeichen, dann ersatzweise #0 oder etwas anderes
        Delete(s, 1, 1); //s um ein Zeichen kürzen
        R := Ord(...);

        if Length(s) > 0 then c := s[1] else c := #0;
        Delete(s, 1, 1); //s um ein Zeichen kürzen
        G := Ord(...);

        if Length(s) > 0 then c := s[1] else c := #0;
        Delete(s, 1, 1); //s um ein Zeichen kürzen
        B := Ord(...);

        PixCol := RGB(R, G, B);

        Bmp.Canvas.Pixels[x, y] := PixCol;
      end;
  finally
    Bmp.Free;
  end;
end;