Delphi 2010 Text in array füllen?

...komplette Frage anzeigen

1 Antwort

Nochmal in CodeForm, sry.

fdsaf;sdfsa;sdfasdds;fsdfasdfd;1; 
aaa;sdfsa;sdfasdds;fsdfasdfd;2; 
vvvv;sdfsa;sdfasdds;fsdfasdfd;3; 
bbbb;sdfsa;sdfasdds;fsdfasdfd;4;
cccc;sdfsa;sdfasdds;fsdfasdfd;5;


procedure TForm1.TakeInArray(text: String; zRecord: Integer); 
var 
  Savepos : integer; 
begin 
  Savepos := Pos(';', text); 
  copy (text, Savepos); 
  zRecord := StrToInt(copy(text, Savepos));
   //delete (text, Savepos); <- Zu wenige Angaben?? 
  ShowMessage(IntToStr(zRecord)); 
end;

Was möchtest Du wissen?