Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
18. Mär 2006
Also ich benutze jetzt folgenden Code:
var
iLine : Integer;
Line : String;
lInput, lValue: String;
lColor: Integer;
begin
// ...
lInput := AnsiLowerCase(Line);
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
17. Mär 2006
Ok, das habe ich bemerkt, der eigentliche Fehler ist beseitigt, aber wenn ich #color(maroon) eintippe, kommt der Fehler falscher Farbwert.
if (copy(line, 1, 6) = '#color(') and (line = ')') then begin
if copy(line, 7, length(line) - 8) = 'black' then
Console.color := clBlack
else if copy(line, 7, length(line) - 8) = 'maroon' then
Console.color := clMaroon
...
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
17. Mär 2006
@himitsu: Irgendwie funktioniert dein Code bei mir nicht, Unbekannter Befehl.
if Console.Lines <> '' then
begin
Console.Lines.Add('Unbekannter Befehl');
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
16. Mär 2006
Ok, nochmal von vorne: Ich möchte ganz einfach nur, dass alle Befehle, die color(), mit einem zulässigen, von mir vorgegebenen Parameter akzeptiert werden, kein abc dahinter, einfach nur color(farbe).
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
16. Mär 2006
Ähm, nein, dann kann ich color(maroon) nicht mehr benutzen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
16. Mär 2006
Hi,
tur mir leid, wenn der Titel etwas unklar formuliert ist, () heißt soviel wie Parameter.
Ich mache gerade bei meiner kleinen Console weiter. Da stoße ich auf folgendes Problem: Ich möchte, dass man die Hintergrund Farbe per color() abändern kann. Aber wenn ich z.B. color(asdhasg) eingebe, ist der Parameter falsch, es tritt zwar kein Fehler auf, aber ich möchte natürlich den Benutzer...