Делфи Edit1.Text и OpenDialog1

Хочу присвоить значение строку из файла тхт в Едит1 для дальнейшей работы,как это сделать.

procedure TForm1.Button6Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text.LoadFromFile(OpenDialog1.FileName);
end;
Не катит.....

 

панимаешь, большинство проблем решаются вызовом GetLastError, но в случае говнокода эмбаркадеровского - это теряет актуальность, напиши им в суппорт

а по сабжу - замени едит на мемо. или убедись что в начале файла не стоит ***ни типа 0d 0a

 

С мемо то я знаю как работать,ну в принцепи по*** так то откуда значение брать,спасибо.

 

нихуя не понял?прочитать строку и записать в эдит?

Code:

var F:textfile;
buf:string;
begin
assignfile(f,'123.txt');
reset(f);
while not EOLN(f) do
begin
read(f,buf);
edit1.text:=buf;
end;
closefile(f);
end;

установит 1-ю строку в edit

 

Ну это понятно,я хотел сделать выбор файла,через окно диалога.Как например тут:Блокнот-Файл-Открыть-Выбираешь файл-Он появится на мемо видимо,а я хотел присвоить строку из выбранного мной файла Edit1.Text,одумался и присвоил Мемо.

 

Вот тебе алгоритм, после того как файл выбран, грузишь его в TStringList:
TstringList.LoadFromFile()
Или методом который у Dod в посте, проверяешь шо строк файле больше одной, присваиваешь Edit-у строку.

Кривым рукам ниче не поможет, WinApi и VCL это инструменты которые надо уметь применять, а если не уметь то не куя не поможет.