Problem mit Richedit

[Neutral General]

Ich versuche verzweifelt Daten in ein Richedit zu laden. Wenn die erste Reihe frei ist, soll er in diese schreiben dann in die 2. usw... der erste Wert wird in die erste Reihe geschrieben aber die nächsten stehen alle hintereinander in der 2. Reihe also so :

5
111

und es soll

5
1
1
1

da stehen ...

Delphi-Quellcode:

if (Richedit1.Lines.Strings[0] = '') then begin
  Richedit1.Lines.Strings[0] := Wert;
end
else
if (Richedit1.Lines.Strings[1] = '') then begin
  Richedit1.Lines.Strings[1] := Wert;
end;
if (Richedit1.Lines.Strings[2] = '') then begin
  Richedit1.Lines.Strings[2] := Wert;
end;

usw. ...

[S2B]

So kommst du ja nicht weit, weil du das ja immer extra schreiben müsstest...
Ich würde das ungefähr so machen, ich hoffe, ich hab es richtig verstanden:

Delphi-Quellcode:

RichEdit.Lines[RichEdit1.Lines.Count]:=Wert;

Du könntest den Wert aber auch einfach hinzufügen:

Delphi-Quellcode:

RichEdit1.Lines.Add(Wert);

Den Wert könntest du mit Copy (imho :oops:) bekommen.

Edit: RichText anstatt RichEdit geschrieben! :wall:

Edit2: Alles war falsch! :drunken: :mrgreen:

[Neutral General]

Also entweder geht es nicht oder ich bin nur zu blöd ...
Also das Problem ist :

Ich bekomme über Netzwerk 4 Daten auf einmal geschickt :

Delphi-Quellcode:

Geld  := IntToStr(Spieler1.Geld);
Raketen := IntToStr(Spieler1.Raketen);
Nordenlaser := IntToStr(Spieler1.Norden.Laser);
Suedenlaser := IntToStr(Spieler1.Sueden.Laser);
   
Client1.Send(PChar(Geld), Length(Geld));
Client1.Send(PChar(Raketen), Length(Raketen));
Client1.Send(PChar(Nordenlaser), Length(Nordenlaser));
Client1.Send(PChar(Suedenlaser), Length(Suedenlaser));

so das funktioniert auch nur soll dann der PC der diese daten bekommt alle einzeln in eine Reihe im Richedit einfügen :

1.Reihe "Geld"
2.Reihe "Raketen"
3.Reihe "Nordenlaser"
4.Reihe "Suedenlaser"

das funktioniert ja auch nur das es dann so aussieht :

500 (Geld)
111 (Raketen,Nordenlaser,Suedenlaser)

statt so :

500 (Geld)
1 (Raketen)
1 (Nordenlaser)
1 (Suedenlaser)

[S2B]

Also wenn du die Dateien ganz normal hintereinander zum RichEdit hinzufügst, also mit Add(), dann muss es gehen!

Delphi-Quellcode:

RichEdit1.Lines.Add(Geld + ' (Geld)');
RichEdit1.Lines.Add(Raketen + ' (Raketen)');
RichEdit1.Lines.Add(Nordenlaser + ' (Nordenlaser)');
RichEdit1.Lines.Add(Suedenlaser + ' (Suedenlaser)');

Du musst halt die Werte in die entsprechenden Variablen tun. :wink:

[Neutral General]

Mh du hast das etwas falsch verstanden ... aber ich hab eine Lösung gefunden.

Danke aber trotzdem :wink:

[S2B]

Ach so! :wall:

[Die Muhkuh]

Hai,

vielleicht teilst du uns die Lösung mit, falls jemand das gleiche Problem hat wie du.

[Neutral General]

Ich hab die vier Strings als einen gespeichert (Wert) und ihn dann zerlegt (Nach einer Art die ich auch im Forum gefunden hab...) :

Delphi-Quellcode:

Spieler2.Geld := StrToInt(Copy(Wert, 1, Pos(',', Wert) - 1));
Delete(Wert, 1, Pos(',', Wert));

Spieler2.Raketen := StrToInt(Copy(Wert, 1, Pos(',', Wert) - 1));
Delete(Wert, 1, Pos(',', Wert));

Spieler2.Norden.Laser := StrToInt(Copy(Wert, 1, Pos(',', Wert) - 1));
Delete(Wert, 1, Pos(',', Wert));

Spieler2.Sueden.Laser := StrToInt(Copy(Wert, 1, Pos(',', Wert) - 1));
Delete(Wert, 1, Pos(',', Wert));

Ich weiß nicht ob man das versteht ... Das zerlegen des Strings versteht man vielleicht schon, aber warum das meine Lösung ist, ist vielleicht etwas unklar... Ich verstehe das was ich mir teilweise zusammenprogrammiere auch nicht so richtig :roll:

[S2B]

Moment, du schreibst doch rein gar nichts in das RichEdit, oder? :gruebel:

[Neutral General]

Nein :mrgreen: ....
Ich hab eine andere Lösung gefunden ...
Ich schreibe die Daten sofort in die Variablen statt zuerst in das Richedit.
Das sollte ja auch nur als "Zwischenspeicher" für die Daten dienen, da ich aber die Daten jetzt direkt in die Variablen schreibe ist Richedit jetzt überflüssig ... :wall: