В Дэлфи практически не шарю, препод задал просто чат сделать с кучей требований.
вот я так понял код для Мемо с пункта 4
Код:
function MyGetStringFromMemo(Memo: TMemo; Index: Integer): String;
begin
with Memo do
Result := Lines[Prev(Lines.Count) - Index];
end;
а вот куда его вставить - хз.
Код HTML:
http://www.delphimaster.ru/articles/sockadv/index.html
- сайт, по которому чат сделан