Hi felo,
was genau verstehst Du denn nicht ?
Hier bist Du doch genau richtig zum fragen, oder ?
Zu Deinem Wunsch:
Delphi-Quellcode:
//In Edit1 stehen zb. 40 Zeichen und Du willst nur die ersten 16
Edit2.Text:= Copy(Edit1.Text,1,16);
und weiter:
Delphi-Quellcode:
//alle Leerzeichen entfernen
function DelSpace(Data:string):string;
var
i: integer;
begin
for i:= 1 to length(Data) do
delete(Data,pos(' ',Data),1);
DelSpace:= Data;
end;
und zum Schluss:
...String auf Zahlen überprüfen
Gruß Bit
P.S.
Die vor mir geposteten Sourcen sind aber bei weitem besser als das was Du jetzt vorhast !