Как отобразить в консоли текст из переменной типа tstringlist?

[O'NeiLL]

Как отобразить в консоли текст из переменной типа tstringlist?

пробовал так, но ничего не выходит:

var
i:integer;
begin
ExtractLinks(form5.Edit2.Text, memo1.Lines);
memo1.Lines.SaveToFile('1.txt');
str.LoadFromFile('1.txt');

for i:=0 to str.count-1 do
begin
CharToOem(PChar(str.strings[i]), PansiChar(str.strings[i]));
writeln(' '+str.strings[i]);
end;

AllocConsole;
try
writeln(' '+str.strings[i]);
finally
 FreeConsole;
end;
end;

какие идеи будут?

[Stilet]

uses     classes,windows,
  SysUtils;
 var s:TStringList;e:string;
begin
 s:=TStringList.Create;
 s.LoadFromFile('D:\structura_ks.txt');
 e:=s.Text;
 CharToOemA(@e[1],@e[1]);
 write(e);  s.free;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Понятно?

[O'NeiLL]

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

uses     classes,windows,
  SysUtils;
 var s:TStringList;e:string;
begin
 s:=TStringList.Create;
 s.LoadFromFile('D:\structura_ks.txt');
 e:=s.Text;
 CharToOemA(@e[1],@e[1]);
 write(e);  s.free;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Понятно?

чёт не получается, можно готовый исходник?

[QunneD]

var
  StringList : TStringList;
  lpText : LPSTR;
begin
  StringList := TStringList.Create;
  StringList.LoadFromFile('1.txt');
  lpText := PChar(StringList.Text);
  Write(CharToOem(lpText, lpText));
  StringList.Free;

[Stilet]

можно готовый исходник?

А это он и есть. Целиком кроме описания консольного проекта, но это ты получищь, создав в Делфи преокт консольного типа.