Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
13. Feb 2006
mindforce... dein alter in allen ehren(bin selbst erst 14) aber musst du eigentlich immer das letzte wort haben? :lol: :lol:
grrrr ICH will das letzte wort haben^^
is MEIN thread
Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
13. Feb 2006
Das Thema ist erledigt, das Problem gelöst. Aber trotzdem danke, ichbins
Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
13. Feb 2006
Viiieeelen Dank^^ tja das kommt davon, wenn man um 7 Uhr aufsteht und bis 23 uhr an sonem Programm sizt. Bei sowas hilft nur Koffein Intravenös^^
Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
12. Feb 2006
omg chon der 3.^^
Wenn ich den teil mit dem LOGIN auskommentiere dann GEHTS
Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
12. Feb 2006
^^
ja ich weiss, aber das sollte den compiler ja nicht au der fassung bringen.
So langsam fange ih an, an meinem Verstand zu zweifeln.
HIIILLLLFFEEEEEEEEE. Kann mir denn keiner Helfen?
Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
12. Feb 2006
Ds ist auch nicht der komplette Quellcode, sondern nur eine Procedur daraus. Das ende des Programms ist das nicht
Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
12. Feb 2006
Erstmal danke für die mühe, hier ist die komplette procedure, ääääh Pro>z<edur
procedure TfrmMain.IdTCPServerExecute(AThread: TIdPeerThread);
var
Command, Answer : String; i, j : Integer; OK: Boolean;
begin
if Edit1.Text<>'' then
begin
AThread.Connection.WriteLn(Edit1.Text);
Exit;
Forum: Object-Pascal / Delphi-Language
Delphi
by inherited,
12. Feb 2006
Hi
Entweder habe ich ein KOMPLETTES Brett vorm Kopf gerade, oder sonste was. Er sagt es fehle ein 'end', aber wo?
Bitte Schnelle Hilfe!
if (Command+Command+Command+Command+Command) = 'LOGIN' then
begin
OK:=true;
for i := 0 to ListBox1.Count-1 do if Uppercase(ListBox1.Items)=Copy(Command, 6, Length(Command)) then OK:=false;