Suchergebnisse | lima-city

Suche auf lima-city

Beiträge (16)

in: Lines aus Memo löschen

geschrieben von nordy
hm, also das ist das erste projekt was ich mit server und client und so mach und deshalb kommt dir bestimmt vieles komisch vor weils anders viel leichter gewesen wäre.

naja an der 'nichtleeren' variable in zeile 8 liegts nicht

in: Lines aus Memo löschen

geschrieben von nordy

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var text,neu :string; i,j,k, l,m:integer;
  begin
  text:=Socket.ReceiveText;

  if text[length(text)]='%' then
    begin
    for i := 1 to length(text)-1 do
      begin
      neu := neu + text[i];
      end;
      memo2.lines.add(neu);

      For l := 0 to Server.Socket.ActiveConnections - 1 do
begin
with Server.Socket.Connections [l] do
if (Connected) then SendText(memo2.text+'&');
end;
     

    end

    else if (text[1] = '$') and (text[length(text)]='$') then
      begin

      for j := 2 to length(text)-1 do
        begin
        loeschen:= loeschen + text[j];
        end;
        
        for k := Memo2.Lines.Count - 1 downto 0 do
          begin
          if Memo2.Lines[k] = loeschen then
            begin

            Memo2.Lines.Delete(k);

            end;
          end;
        end



else
begin
memo1.lines.insert(memo1.caretpos.y,text);

      For m := 0 to Server.Socket.ActiveConnections - 1 do
begin
with Server.Socket.Connections [m] do
if (Connected) then
begin
SendText(memo1.text);


end;
end;

end;




end;

in: Lines aus Memo löschen

geschrieben von nordy
Moin Moin,

ich will Strings aus einer Memo löschen, die bekannt sind, das heißt ich überprüfe mit einer for-schleife jede Line ob dieser identisch ist und wenn ja, dann soll es gelöscht werden, hab auch etwas geschrieben, funktioniert allerdings nur einmal

die schleife steht übrigens in einer TForm1.ServerClientRead prozedur, das heißt, dass jedes mal wenn der server etwas vom client empfängt diese schleife ausgeführt werden müsste, was nicht der fall ist, sondern eben nur einmal

ich hoffe mir kann jemand helfen
```
for k := Memo2.Lines.Count - 1 downto 0 do
          begin
          if Memo2.Lines[k] = loeschen then
            begin

            Memo2.Lines.Delete(k);

            end;
          end;
```
in: wo ist der Haken? (Angebot)

geschrieben von nordy
der haken ist der bildschirm, denn er ist billig in der produktion und spiegelt das licht, außerdem sind die meisten hardwareteile die qualitativ schlechtesten, allerdings holt das preis-leistungsverhältnis alles wieder raus und ich muss dir zustimmen, dass es ein echt gutes angebot ist

Beitrag geaendert: 28.5.2007 18:14:42 von nordy
in: Problem mit While-Schleife : Variable erhöhen

geschrieben von nordy
ok, das stimmt, is mir gar nicht aufgefallen,aber hier hab ich noch ein einfacheren code, bei dem für x 10,0099999999998 ausgegeben wird. das kann auch nicht sein , ich benutz übrigens delphi 5
```
procedure TForm1.Button1Click(Sender: TObject);
var x :double;
begin
x:=0;

while x <=10 do
begin
x:=x+0.01;
end;
edit1.text:=floattostr(x);
end;
end.
```
Beitrag geaendert: 28.5.2007 12:38:57 von nordy
in: Problem mit While-Schleife : Variable erhöhen

geschrieben von nordy
seltsam oder?

Edit by patrick91:
Text aus zweitem Post: so etwas kann gar nicht sein...

Beitrag geändert: 10.6.2007 19:29:44 von patrick91
in: Problem mit While-Schleife : Variable erhöhen

geschrieben von nordy
Wenn ich auf Button1 klick, dann gibt er mir im Edit1 für u = 1,08646184497817E-311 aus.
Wie kann so eine Zahl zustanden kommen, wenn ich sie nur um 0.01 erhöhe und die Bedingung u<=3 ist?
```
procedure TForm1.Button1Click(Sender: TObject);
var u, x, flaeche : double;
begin
while (flaeche >= x) and (u<=3) do
begin
x:=flaeche;
u:=u+0.01;
flaeche := (u + u)*(-(u*u)+9);
end;
edit1.text:= floattostr(u);
end;


end.
```
in: wie lerne ich am besten flash?

geschrieben von nordy
hat jemand ne idee?
in: Was ist los mit JAP?

geschrieben von nordy
hol dir doch zb ghostsruf
in: Stalker

geschrieben von nordy
wie findet ihr stalker, ich wills mir eventuell holen, hab aber keine ahnung wies ist
in: lg 225 kg

geschrieben von nordy
was sagt ihr zu dem handy?
in: dsds max buskohl

geschrieben von nordy
doof, dass er gefangen bei rtl ist, denn er darf nicht zu prosieben
in: Wo gibts das klarste wasser?

geschrieben von nordy
nordsee kann ich schonma ausschließen
in: Wo gibts das klarste wasser?

geschrieben von nordy
weiß das jemand
in: HSV nächste Saison Meister?

geschrieben von nordy
ich denk sie werden es unter die ersten 5 schaffen
in: HSV nächste Saison Meister?

geschrieben von nordy
na was denkt ihr?

kostenloser Webspace werbefrei: lima-city

Suche auf lima-city

in: Lines aus Memo löschen

in: Lines aus Memo löschen

in: Lines aus Memo löschen

in: wo ist der Haken? (Angebot)

in: Problem mit While-Schleife : Variable erhöhen

in: Problem mit While-Schleife : Variable erhöhen

in: Problem mit While-Schleife : Variable erhöhen

in: wie lerne ich am besten flash?

in: Was ist los mit JAP?

in: Stalker

in: lg 225 kg

in: dsds max buskohl

in: Wo gibts das klarste wasser?

in: Wo gibts das klarste wasser?

in: HSV nächste Saison Meister?

in: HSV nächste Saison Meister?

Login zum Webhosting ohne Werbung!