Deutsches Lazarusforum

supi.. jetzt funzt das auch.. vielen vielen dank!!!!!!!

(Wenn jetzt was mitm sortieren nicht hinhaut, schreib ichs bestimmt nochmal hier hin ^^... will nicht nochmal neues thema aufmachen!

Also für einen Sortieralgorithmus will ich eine Reihe von Zufallszahlen erzeugen und in nem Memofenster ausgeben lassen.. aber daran scheitert es jetzt.. mein Programm sieht so aus: (nur ein Teil)

const n=5;
Bereich=10;

var Zahl : Array[1..n] of Word;

procedure ErzeugeZufallszahlen;
var i ...

ne quatsch.. die abfrage ist ja.. wenn es nicht leer ist.. dann tue das.. ach mist!

aber wenn ich das memo2.clear wegmache.. dann kommt wieder die meldung mit dem memo2 ist ein invalid integer.. also irgendwie dreh ich mich gerade in einem teufelskreis!

Wie wärs mit einer If-Abfrage, ob die auszulesende Zeile leer ist? Das haben wir afair im Memo-Thread Teil 1 behandelt. Dort hat jemand eine Lösung für eine solche Abfrage vorgestellt.

okay, jetzt sieht mein ding so aus:
procedure TForm1.Button2Click(Sender: TObject);

var i,j : integer ...

na wenn ich aber kein zweites memo fenster habe, kann ich es auch nirgendwo ausgeben lassen? Wie soll ich das anstellen? In das Meom2 einfach irgendwelche Zahlen eingeben, mit denen dann eh nichts gemacht wird?

Sobald du irgendwo eine "leere" Zeile hast, besteht das Problem, was ich beschrieben habe. " " gehört zum Beispiel dazu. Schau mal, ob du irgendwo leere Zeilen hast (evtl auch ob Line[0] leer ist)

hab ich doch schon geschrieben! Nirgendwo freie Zeilen.. wenn ich die Zahlen eingebe, lösche ich ...

theo hat geschrieben:Im Property Lines den Standartext löschen, oder beim Start Memo1.Clear

danke.. jetzt hab ich das problem gelöst.. aber jetzt kommt die meldung, dass " " ein invalid integer ist.. ich hab aber nirgendwo leerzeilen gemacht oder so! :/

ich gebe nur zahlen ein.. eine ziffer pro zeile..

wenn ichs aber einfach nur vertausche, dann kommt die fehlermeldung schon vor dem start des programms!

ist doch richtig.. j ergibt sich aus den strings aus den memofenstern... die in integer umgewandelt werden.. deswegen ist doch j ein integer..

Live hat geschrieben:Du brauchst auch IntToStr und nicht StrToInt

na zum einlesen (1. Zeile) nehme ich strToInt..

und zum ausgeben (2. Zeile) IntToStr.. hää? Versteh ich nicht?


wenn ichs vertausche.. kommt die fehlermeldung schon vor dem starten des programms!

Also ich hab jetzt in meinen quelltext folgendes eingefügt:

procedure TForm1.Button2Click(Sender: TObject);

var i,j : integer;

begin

for i:=0 to 6 do
begin
j:=strtoint(Memo2.Lines[0]);
Memo2.Lines.Add(IntToStr(j));
end;

end;


also jetzt unabhängig davon, dass ich davon ausgehe, dass ...

Es gibt keine Memo-Fenster, höchstens eine Komponente. Du hast doch deine For-Schleife. In der gehst du ja jede Zeile deines Memos durch, richtig? Also, wenn du jede Zeile ausliest, kennst du doch jedes mal, wenn du eine Zeile ausließt, einen Wert inkrementieren. So hast du dann am Schluss die ...

Tut mir Leid, aber ich ziehe mich nun aus diesem Thema zurück...

@Doreen H.:
Es tut mir leid, aber ich sehe nicht das du ernsthaft versuchst zu verstehen was wir dir hier schreiben. (bis zu einem gewissen Grad schon, aber halt nicht genug. Und sag jetzt nicht das du dazu zu Doof bist, das stimmt ...

hää?? wie soll das jetzt die lösung für meine fehlermeldung sein?? die kommt doch nachdem ich das gestartet habe.. was soll denn nach dem then hin?? Ich bin kein programmierer!! wie prüfen ob welche zeile leer ist? ein bisschen genauer?? Da gibts keine leeren zeilen!

Wie geht das denn nun mit dem ...

also ich habs nochmal probiert.. ohne enter nach der letzten zahl.. gleiche Fehlermeldung!! :(

ja dann muss ich mit StrToFloat oder eben umgekehrt arbeiten.. für gebrochene zahlen.. also ich hab jetzt die summe..
und den durchschnitt?.. muss ich da einfach durch j teilen?? also sprich durch die ...