Скачать: CL | DM;

Помогите с *.txt файлом   Найти похожие ветки 

← →
Big Joe ©   (2005-07-19 08:58) [0]

Привет всем ! Помогите разобраться с задачей ! Есть *.txt файл
телефонный справочник, в нём данные хранятся примерно в таком виде : Путин |Владимир|Владимирович
      Чой |Хонг|Хи
       
Как мне Фамилию, Имя, Отчество присвоить к трём переменным ?

---

← →
evvcom ©   (2005-07-19 09:07) [1]

AnsiPos, Copy + F1

---

← →
Anatoly Podgoretsky ©   (2005-07-19 09:10) [2]

И :=

---

← →
Big Joe ©   (2005-07-19 09:13) [3]

Хех.. Данные разной длины разделяются | Как ориентироваться
чтобы переберал правильно ?

---

← →
Skyle ©   (2005-07-19 09:19) [4]

>  [3] Big Joe ©   (19.07.05 09:13)
Кусок кода, который не может сориентироваться - в студию.

---

← →
Digitman ©   (2005-07-19 09:23) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
 sl1, sl2: TStrings;
 i: Integer;
begin
 sl1 := TStringList.Create;
 sl1.LoadFromFile("c:\text.txt");
 sl2 := TStringList.Create;
 sl2.Delimiter := "|";
 for i:=0 to sl1.Count - 1 do
   begin
     sl2.DelimitedText := sl1[i];
     showmessage("Фамилия : " + sl2[0] + " Имя : " + sl2[1] + " Отчество : " + sl2[2]);
   end;
 sl2.Free;
 sl1.Free;
end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c