Bin mittler Weile völlig am Ende. Es funktioniert einfach nicht...
Folgendes habe ich schon mal geschrieben:
Delphi-Quellcode:
nit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
Button1: TButton;
GroupBox4: TGroupBox;
ListBox1: TListBox;
Edit1: TEdit;
BitBtn3: TBitBtn;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
procedure BitBtn3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
farbfolge:array of integer; //Arrays für die Farbfolge
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var zahlenfolge:integer;
umwandlung: integer;
umformung: integer
begin
umwandlung:=Edit1.text;
umwandlung:= ord(eSecond); // Umwandlung Buchstaben nach Zahlen
begin
zahlenfolge:=umwandlung;
umformung:zahlenfolge('')+1 //bei der Umformung habe ich keine Idee
// wie ich die erste Stelle nach hinten
// bekomme
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if not (edit1.text='')then
begin
listbox1.items.Add(edit1.text);
setlength(farbfolge,length(farbfolge)+1);
c:=c+1;
farbfolge[c]:=strtoint(edit1.Text);
edit1.Text:='';
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin // es können nur sechs Buchstaben eingegeben werden
if not (Key in [w,s,r,g,n,b]) then Key:=#0;
end;
end.
Hoffe mal mir kann hier einer einen Tipp geben (ist wirklich dringend)
Ciao Tina.