[trafbite]

Привет.
Ребят, есть проблема. В гугле был - не нашел четкого ответа на вопрос.

Есть TStringList (text.Text) с каким-то содержимым. Хочу передать этот лист в функцию, там добавить, например, строку, а потом забрать это дело оттуда и вывести в мемо. Как сделать?

Я делал так:

Код:

function TForm1.test(list: TStringList): TStringList;
begin
list.Add('Some string');
end;
потом в обработчике нажатия кнопки Button1:

Memo1.Text:=test(text.Text);

Не работает

[Gravitas]

Код:

function TForm1.test(list: TStringList): TStringList;
begin
Result.Add('Some string');
end;


Memo1.Text:=test(text.Text);

[GriLab]

Сообщение от Gravitas

Код:

function TForm1.test(list: TStringList): TStringList;
begin
Result.Add('Some string');
end;


Memo1.Text:=test(text.Text);

Gravitas, я так понимаю, вылезет Access Violation в данном коде...

[Gravitas]

Ну я полагал, что ТС сам догадается приписать ...:=TStringList.Create или так, как вы предложили.

[FlyInDream]

Вот рабочий вариант:

Код:

procedure AppendList (var AList: TStringList);
begin
  AList.Add('Это новая строка!');
end;

Используем:

Код:

procedure TForm4.btn1Click(Sender: TObject);
var
myList: TStringList;
begin
  myList:= TStringList.Create();
  AppendList (myList);
  mmo1.Text:= myList.Text;
  myList.Free;
end;

[trafbite]

Сообщение от FlyInDream

Вот рабочий вариант:

Код:

procedure AppendList (var AList: TStringList);
begin
  AList.Add('Это новая строка!');
end;

Используем:

Код:

procedure TForm4.btn1Click(Sender: TObject);
var
myList: TStringList;
begin
  myList:= TStringList.Create();
  AppendList (myList);
  mmo1.Text:= myList.Text;
  myList.Free;
end;

Во! Это да. Но нужная именно функция, а не процедура Что бы она получала текст, выполняла с ним манипуляции и возвращала его

[trafbite]

Сообщение от Gravitas

Код:

function TForm1.test(list: TStringList): TStringList;
begin
Result.Add('Some string');
end;
Memo1.Text:=test(text.Text);

Нет, не работает. Ругается именно на эту строку:

Код:

Memo1.Text:=test(text.Text);

[Error] Unit1.pas(36): Incompatible types: 'TStringList' and 'TCaption'
Листинг двух этих операций:

Код:

function tform1.test(list: tstringlist):tstringlist;
begin
list.Add('111');
result.Text:=list.text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.Text:=test(memo1.text);
end;

GriLab, проблема именно в передаче (заборе результата) из функции. Что и как делать в самой функции я знаю, с этим проблем нет. Проблема вывести из функции TStringlist в TStringlist.

[GriLab]

Вот пример функции:

Код:

function AppendList (AList: TStringList): Integer;
begin
  Result := AList.Add('Это новая строка!');
end;

Используем так:

Код:

...
Index := AppendList(MyStrings);
ShowMessage('Добавлена строка с индексом ' + IntToStr(Index));
ShowMessage('Текст строки: ' + MyStrings[Index]);
...