[tabivan]

Помогите написать конвертер. Приведенный ниже код работает только если строка не больше 200 символов.
Нужно из файла все что располагается между / / записать в массив.

Код:

if form1.OpenDialog1.Execute then fname:=form1.OpenDialog1.FileName;

TStr := TStringList.Create;
  try
    TStr.LoadFromFile(fname);
      for t:=0 to TStr.Count-1 do
        begin
        str:=TStr.Strings[t];

k:=1;
a:='';
for i:=1 to length(str) do
 begin
   if str[i]<>'/' then a:=a+str[i] else
   begin
   m[k]:=a;
   Inc(k);
   a:='';
   end;
 end;

m[k]:=a;

[Bargest]

Запихиваем весь файл в одну строку, затем как-то так:

Код:

uses StrUtils;
...
CopyStart:=Pos('/',str);
CopyEnd:=PosEx('/', str, CopyStart+1);
S := Copy(str, CopyStart+1, CopyEnd-CopyStart-1);

[tabivan]

Спасибо Ваш код намного меньше.

Но у меня проблема в том что когда использую переменную String обрезается часть текста

TStr.LoadFromFile(fname); //- строка 1000 символов
for t:=0 to TStr.Count-1 do
begin
str:=TStr.Strings[t]; //- строка 250 символов

в итоге часть текста пропадает

[Aristarh Dark]

Если TStr - это TStringList то он разбивает текст на строки по #13 и еще если встречается символ #0 - то он интерпретируется как конец строки.

[robt]

Сообщение от Aristarh Dark

если встречается символ #0 - то он интерпретируется как конец строки.

не, для строки это не является концом,а для Pchar\Pwidechar да

[tabivan]

(((1111111;;1111;22/02пппппп/03ппппппп/04аааааа/0519791215/068401052537/07аааааа;аааа;аааааа;аааааа;/08ааааа;ааааа;аааааа;ааааа;-;-;-;-/09ааааааааааа;ааааааааааа;аааааааа;аааааааааааа;-;-;-;-2225/2383160/2420080520/27118470/3049/314/332/4322802/4463/4514/ааааааааааааааааааааааааааааааааааааааааааааааа/6120080518/аааааааааааааааааааааааааааааааааааааааааа;-;-;-;-781/79аааааааааааааааааааааааааааааааааааааааа,22041/99вввв=34157702)))

[Aristarh Dark]

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

не, для строки это не является концом,а для Pchar\Pwidechar да

попробуй вот такой код

Код:

var
  s:string;
begin
  s:='asdasdasdasd'#0'asdkahsdlkhasdааа';
  ShowMessage(s);
end;

[robt]

Сообщение от Aristarh Dark

попробуй вот такой код

эх школьники пошли,ничо не знают....
аты попробуй этот

Код:

program Project1;
{$APPTYPE CONSOLE}
var
  s:string;
begin
  s:='asdasdasdasd'#0'asdkahsdlkhasdaaa';
  writeln(s);
  Readln;
end.

чтоб ты сильно не мучался в разгадках
в ShowMessage строка приводится к Pchar

[Страдалецъ]

Если я правильно понял вам неужно вот что:

Код:

Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Delimiter := '/';
 SL.LoadFromFile('c:\Test.txt');
 SL.DelimitedText := SL.Text;
 Memo1.Text := SL.Text;
 SL.Free;
end;

[tabivan]

Сообщение от Страдалецъ

Если я правильно понял вам неужно вот что:

Да. Только я не понял как это сделано?
И как мне теперь эти строки сложить в массив m[i]?

[Bargest]

[offtop]

в ShowMessage строка приводится к Pchar

Интереснее всего способ этого приведения: хранить в указателе на "объект" строки адрес самого массива байт, а остальные поля, идущие раньше в памяти, высчитывать вычитанием из текущего адреса. Например, в Pointer(DWORD(s)-4)^ хранится четырёхбайтовая длина строки. И делфийская строка тоже на конце всегда содержит 0 для совместимости. Так что по сути никакого приведения нет, просто разные механизмы обработки одного массива.

[robt]

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

И делфийская строка тоже на конце всегда содержит 0 для совместимости. Так что по сути никакого приведения нет, просто разные механизмы обработки одного массива.

ты тоже не прав,бро...
0 на конце строки нету вообще, ибо ее длинна известна и он не нужен
все преабразования типа Pchar(s) или String(p) или s:=p это НЕ приведение типов, а "магия компилятора" в виде вызовов функций LStrToPChar и LStrFromPChar

[Bargest]

Дизассемблируй свой пример и посмотри на строку до копирования в s. На её конце стоит ноль. Поэтому преобразование вида

Код:

PAnsiChar(Pointer(S));

или

Код:

var p:pointer;
...
P:=Pointer(S);
ShowMessage(PAnsiChar(P));

или

Код:

asm
 mov eax, s
 mov p, eax
end;
ShowMessage(PAnsiChar(P));

и даже

Код:

Getmem(p, Length(s)+1);
CopyMemory(p, Pointer(s), Length(s)+1);
ShowMessage(PAnsiChar(p));

нормально работает.
А вот приведение PChar->String, конечно, проводить нужно. При этом строка, разумеется, копируется до первого нуля, и высчитывается её размер.

ЗЫЖ кстати, если посмотреть код функции преобразования String в PChar, то можно увидеть, что так оно и есть:

Код:

function _LStrToPChar(const S: AnsiString): PAnsiChar;
begin
 If Pointer(s) = nil then
  Result := @EmptyStringA.Nul
 else
  Result := Pointer(s);
end;

[tabivan]

Сообщение от Страдалецъ

Если я правильно понял вам неужно вот что:

Код:

Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Delimiter := '/';
 SL.LoadFromFile('c:\Test.txt');
 SL.DelimitedText := SL.Text;
 Memo1.Text := SL.Text;
 SL.Free;
end;

Подскажите юзеру как в массив положить строки?

[robt]

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

Дизассемблируй свой пример и посмотри на строку до копирования в s.

это какой именно пример,и дизать ничо ненадо,есть окно CPU там все отлично видно ,что я писал выше