Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Вниз

Помогите разобраться в Delphi работает в Buildere нет.   Найти похожие ветки 

 
Kolan ©   (2004-12-06 22:24) [0]

В Delphi это проходит:
function TForm1.Cool: TStringList;
var
 S: TStringList;
begin
 S := TStringList.Create;
 S.Add("sdfsd");
 Result := S;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

 Memo1.Lines.AddStrings(Cool);
end;


В вот в Buildere не поймо как правильно:
TStringList __fastcall TMainForm::Cool()
{
 TStringList *S = new TStringList;
 S->Add("sdfs");
 Memo1->Lines->AddStrings(S);
 return S;
}

//---------------------------------------------------------------------------

void __fastcall TMainForm::BitBtn1Click(TObject *Sender)
{
 Memo1->Lines->AddStrings(Cool());
}

Ошибки выдаёт:
Build
 [C++ Error] KJavaParserMainForm.cpp(43): E2034 Cannot convert "TStringList *" to "TStringList"
 [C++ Error] KJavaParserMainForm.cpp(51): E2034 Cannot convert "TStringList" to "TStrings *"
 [C++ Error] KJavaParserMainForm.cpp(51): E2342 Type mismatch in parameter "Strings" (wanted "TStrings *", got "TStringList")


 
Kolan ©   (2004-12-06 23:03) [1]

Все спят  что-ли или вопрос не нравится.
PS Спать охота подсказали бы, я б сделал и спать пошел :)


 
GuAV ©   (2004-12-06 23:19) [2]

Kolan ©   (06.12.04 22:24)
function TForm1.Cool: TStringList;
var
S: TStringList;
begin
S := TStringList.Create;
S.Add("sdfsd");
Result := S;
end;


можно заменить на

function TForm1.Cool: TStrings;
var
S: TStringList;
begin
S := TStringList.Create;
S.Add("sdfsd");
Result := S;
end;

и в D будет IMHO лучше и в C наверное поможет.


 
ЮЮ ©   (2004-12-07 04:41) [3]

Это называется не Cool, а Leak: созданный в функции TStringList никем уничтожен не будет, а ссылка на него - потеряна


procedure TForm1.Cool(Strings: TStrings);
begin
 Strings.Add("sdfsd");
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 Cool(Memo1.Lines);
end;


 
DiamondShark ©   (2004-12-07 09:42) [4]

TStringList* __fastcall TMainForm::Cool()


 
KADAN ©   (2004-12-07 09:50) [5]

мда... во-первых ЮЮ сказал верно
во-вторых ты объявил ф-цию как TStringList, а она у тебя пытается вернуть указатель на него, нехорошо наверна... (это про си)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.034 c
14-1101811755
NewDelpher
2004-11-30 13:49
2004.12.19
параметры экрана Linux 2.4


6-1097154229
Боян Георгиев
2004-10-07 17:03
2004.12.19
TidHTTPServer: как послать ехе файл для download к потребителю?


1-1101850354
Mega
2004-12-01 00:32
2004.12.19
Обмен сообщениями между MDIParent и MDIChild


3-1101129920
Tor
2004-11-22 16:25
2004.12.19
Создание dbf


1-1102435699
yanker
2004-12-07 19:08
2004.12.19
Сохранение экземляра класса в файл





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский