If abfrage hat bugs

[hedie]

Hallo

Ich eröffne für diese frage mal einen neuen thread (was man ja auch sollte :) )


Also Ich benutze folgenden code um eine Datei von einem FTP zu downloaden diese beinhaltet einen wert, sagen wir: wert.

nun soll dieser wert im programm überprüft werden wie ich es ja auch gemacht habe...
das problem, es geschieht absolut nichts.

Hier der code

Delphi-Quellcode:

procedure TForm1.actionTimer(Sender: TObject);
begin
ds := TMemoryStream.Create;
memo1.Lines.SaveToStream(ds);
ds.Position := 0;
rc.Put(ds,cn+'.log',false);
ds.Free;
ds := TMemoryStream.Create;
try
rc.Get(cn+'.log.act',ds,true);
rc.Delete(cn+'.log.act');
except
memo1.Lines.Add(timetostr(now)+' -- Error No act File Found')
end;
ds.Position := 0;
memo2.Lines.LoadFromStream(ds);
ds.Free;
value := memo2.Text;


if value = ('ejectcd') then showmessage('junge junge'); //EDIT: Vergessen
if value = 'clr' then close;                            //


memo2.Clear;

end;

rc ist der Indy FTP Client
ds ist als TStream deklariert worden
cn ist der computernamen was hier als dateinamen dient

Die aktionen sind etwas doof aber es soll bis es klapt nur ein test sein

Ich weiss echt nicht mehr weiter

hoffe sehr auf hilfe


grüsschen

[idontwantaname]

Wo ist hier nochmal die If Abfrage, die einen Bug enthält :gruebel:
Und was meinst du damit, das nichts passiert?

[hedie]

Ja es sollte die anwendung geschlossen werden

aber das wird sie nicht

[idontwantaname]

und was enthält value?

[mkinzler]

Bist du sicher, das dann jeweils nur das eien Kommando im Memo steht? (Ohne Leerzeichen usw.)
Laß dir mal den Inhalt von Value anzeigen. U.U. hilft auch eine Trim()

[inherited]

Hast du dir schon mal den Wert von "value" mit ShowMessage oder im Debugger anzeigen lassen?

[thkerkmann]

Hi,

ich wette value enthält "clr" und ein Carriage Return und dann schlägt das if nicht zu.

teste mal length(value) das ist dann sicher 4 oder sogar 5.

Gruss

[hedie]

wie man sehen sollte den text aus memo2

also es soll folgendes tun

datei von server mit befehl in stream laden

stream in memo öffnen (befehl wie zb: hallo sollte nun in der memo stehen)

variable value soll den befehl bekommen der im memo steht (fals es ohne Variable geht ist mir das lieber)

nun soll man die variable mit den definierten befehlen vergleichen können also zb

Delphi-Quellcode:

if gespeicherterbefehl = ('befehl bla bla') then mache was;

[hedie]

EDIT: Ja es sind 5 zeichen bei 3 sichtbaren


wie krieg ich den da raus den return?

[mkinzler]

Delphi-Quellcode:

value := memo2.Lines[0];