Forum: Object-Pascal / Delphi-Language
Delphi
by ZeroQool007,
26. Okt 2004
VAR i : INTEGER;
s : string;
key:char;
begin
begin
s := '';
for i := 0 to (Memo1.lines.count -1) do
s := s + Memo1.lines.text;
i := (50 - Length(Memo1.Text));
Forum: Object-Pascal / Delphi-Language
Delphi
by ZeroQool007,
26. Okt 2004
ist einfach nur eine Textausgabe(label & in der Statusbar), damit der User weiß, wie viele Zeilen er noch zur Verfügung hat bzw wenn er an Zeile 10 gekommen ist, die Meldung bekommt, dass keine Zeile mehr verfügbar ist...
Forum: Object-Pascal / Delphi-Language
Delphi
by ZeroQool007,
26. Okt 2004
Hi..
@freak...an wen war nun deine Lösung gerichtet?
Ich habe das Line Problem so gelöst:
begin
if Memo1.Lines.Count< 10 then Memo1.WantReturns:=true;
if Memo1.Lines.Count>9 then Memo1.WantReturns:=False;
lbl_Ausgabe.Font.Color := clgreen;
Forum: Object-Pascal / Delphi-Language
Delphi
by ZeroQool007,
26. Okt 2004
Kann mir keiner helfen?! =(
Forum: Object-Pascal / Delphi-Language
Delphi
by ZeroQool007,
25. Okt 2004
Gibt es auch eine Möglichkeit das jede Zeile nur eine bestimmte Anzahl an Zeichen zuläßt! zB darf jede Zeile nur max. 50Z. haben und soll 10Zeilen insgesamt haben...danke im voraus....